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INTRODUCTION 



Format of the F OKTR AKJVMamml 

The FORTRAN IV User's Manual has been ^f^^^^' F ^^1^L to 

description of the DGC FORTRAN IV ^^'^^^y t0 users having either SOS, 
the DGC operating systems. Chapters , 2 <md 3 o Part II ^ ^ ^ . ^ ? 

RTOS. or RDOS. Chapters 4 and .6 ^™ o^RTO^ ^ ^ ^^ ^ 

^^^t^i^ n 0f the manual . 

Features of FORTRAN IV 

Oa ta General's FORTRAN IV fox the DGC f a mily of con^s ..an — ^™^* t of 

r^^TTJ^r ^1== o^XTon he noted in this manual, 

where pertinent, and summarized in Appends C. 

A „ improved fearures of FORTRAN IV, ^"^^^^^V* 
^ R S^°T^ Z ^cr^hteX^w.e, ^ « fully adapted for a ny 
major computer application. 

f wriPTR AN <-hat are not yet standardized. Some 
Extensions Include certain ^^'•"^fj™™^****^. generalise! subscript 
of these arc double precision complex *™ h ™^ ™ ^ dummy varia ble, Hollerith constants 
expressions, abnormal returns from subprograms ma ^ the lower subscript 

surrounded by quotation f ™^™» ^l^l, a string FORMAT descriptor, 
Sl^r .ST.! - enfoFmlnd error returns from I/O Elements, 
Extensions to I/O offer the user a chuice of standard forn^nno r •— teh. ^ 

channel numbers at run time. 

The code generated provides optimized register ^7^'^ s tT^^ 
language code, which can be interfaced with ^ssem «a f "*• J - hu> ^ machine lang , age 
is m the form of assembler source code, the user can nc u g ^ . mer e 

code directly in a FORTRAN-generater prog am , A top m ^r ^^ ^ ^ ^^ 



Additional Reference Material 






following 



FORTRAN IV Run Time Library User's Manual 

Extended Relocatable Assembler 

Introduction to RDOS 

RDOS User ' s Manual 

RDOS User Device Driver Implementation 

BATCH User * s Manual 

Introduction to RTOS 

RTOS User ' s Manual 

RTOS User Device Driver Implementation 

Stand-alone Operating System User ' s Manual 

Relocatable Loaders User ' s Manual 

Octal Editor User's Manual 

Library File Editor User 's Manual 

Text Editor User 's Manual 

DOS - Compatible SOS System Manual 

The Symbolic Debugger 

RTIOS User 's Manual 

Discrete Fourier Transform 

Commercial Subroutine Package 

Dataplot User ' s Manual 



093-000068 

093-000040 

093-000083 

093-000075 

017-000002 

093-000087 

093-000093 

093-000056 

017-000006 

093-000062 

093 -000080 

093 -000084 

093-000074 

093-000018 

093 -000094 

093*-00G044 

093-000095 

093-000104 

093-000106 

093-000060 



PART 1 



Chapter 1 - FORTRAN PROGRAMS 

Chapter 2 - ARITHMETIC AND STRING DATA 

Chapter 3 - EXPRESSIONS 

Chapter 4 - ASSIGNMENT STATEMENTS 

Chapter 5 - CONTROL STATEMENTS 

Chapter 6 - INPUT/ OUTPUT STATEMENTS 

Chapter 7 -SPECIFICATION STATEMENTS 

Chapter 8 - DATA INITIALIZATION 

Chapter 9 - FUNCTIONS AND SUBROUTINES 



TABLE OF CONTENTS 

CHAPTER 1 - FORTRAN PROGRAMS 

........ 1-1 

Program Units ......•••«*•*•*•" ..1-1 

Lines of Program Text •'••'""'"""''"''][ i_i 
Comment Line (C) ,....•«••♦••*•*•* ^ 

Optionally Compiled Line (X) .......-•• 

Assembly Source Code Line (A) ......•■ ^ 

Label. . ......•••«•*• ^_ 2 

Comment Following •**■•'*"******"* 1-2 
FORTRAN Statements .....•••••••••••*•• ^ 

Continuation Lines .......•••••••••' 

Partial Ordering of Statements ^ 

FORTRAN Source Program • • • ^ 

FORTRAN Character Set • 

CHAPTER 2 - ARITHMETIC AND STRING DATA 

Constants, Variables and Parameters • • • 2-1 

Integer Data , , 2-3 

Real Data • * * * * 2-3 

Double Precision Data * * * * 2-4 

Complex Data . . . 

Double Precision Complex Data. . . • • • • • • ^ 

Logical Data ....-• • • • • 

String (Hollerith) Constants . • ^ 

Arrays and Subscripts. • • • • • 

CHAPTER 3 - EXPRESSIONS 

3-1 

Definition of an Expression . . . 3-1 

Arithmetic Expressions • • • g _ 3 

Sample Arithmetic Expressions • • ♦ * 

Relational and Logical Expressions .....••••• ^ 

Relational Expressions • • • * * * * 3.4 

Logical Expressions • - 

Evaluation of Logical and Relational ^ ^ 

Expressions . 

CHAPTER 4 - ASSIGNMENT STATEMENTS 

....... 4-1 

Definition .....•••••••* 4-1 

Assignment to a Variable • • • *******. 4-2 

Assignment Examples ....••*«• 

CHAPTER 5 - CONTROL STATEMENTS 

.... 5-1 

Definition .......•••«•• * * - j_ 

Unconditional GOTO Statement ***""" 5 _1 

Computed GOTO Statement ........-•••••• __ 2 

Assigned GOTO Statement '.'.'. 5-2 

ASSIGN Statement .....••••• * * 



CHAFFER 5 - CONTROL STATEMENTS (Continued) 

Arithmetic IF Statement . s Q 

Logical IF Statement ....,.*.*.*********** 5 "3 

CALL Statement ■«••••••... .^ ^ 

RETURN Statement '""""•'"•'"-'- -^ 
CONTINUE Statement """•"•""■"• -^ 
PAUSE Statement •'•••••••••....... 3-4 

STOP Statement . , "'"''"''"""*''" ~ '" 'T^ 
DO Statement ,,.,".'//'''"''"""'"'*''" "T^ 

CHAFFER 6 - INPUT/OUTPUT STATEMENTS 

FORTRAN Input/Output . 6 

Programmed I/O Using READ and WRITE " * 6~i 

I/O Lists of READ and WRITE Statements. . " " 6 -2 

Unformatted I/O 

Formatted I/O ... • • • • • 6-3 

FORMAT Statement. .' .' .' * * .' .' .* .* .* ' ." .' .' ' ' 6 _ 6 
Specification of Format Information." .* ." ." .' .* 6 ~6 

Separators of Descriptor Field * 6 _7 

Basic Numeric Field Descriptors .* .' *6-7 

Numeric Conversion on Input .6-7 

Output Conversion of Integers •......".'.*.* 6 -8 

Output Conversion of Real and Double 

Precision Data . fi 

Radix 8 I/O Using the O Specifier .* .' .*.**" 6-10 
Non-numeric field Descriptors .... 6 _ 10 

I/O of Logical Data . * ' * 6-10 

Positioning Descriptors .*.*.".".*.**" *6-ll 

String Data ........* 6_i 

String Literals .'.*.**"** "fi-12 

Alphabetic Data .*.".".'.*.*."*"' * 6 I 12 

Multiple Record Forms .".".*.'.' ." ,' .* * 6 " 13 

Vertical Carriage Control .' .* *6-lS 

Scale Factor . . . . . * 6-1*7 

Run Time Format Specifications ... * * * ' fi _1 8 

Binary I/O . . 5 18 

Teletype I/O . ....'.'.'.' .*.'" * 6 '\ 9 

ACCEPT' and TYPE Statements .*."."." 6 _20 

Sample Program # _ 6 _ 21 

Rules of Teletype I/O ... . * ' * * A n . 

CONTROL I/O ... .' .'.'.""" "a 

Channel Access , # 6 _ ? „ 

End-of-File or Transfer of Control * * 6-?l 

REWIND Statement ... . a „ 

ENDFILE Statement .'.' .'.'.' .'.' .* 6 -24 

Random Access Files (FSEEK) * , # .*6-24 

Rereading and rewriting Records 



(CHSAV, CHRST) . , 6 . 



24 



vi 



CHAPTER 7 - SPECIFICATION STATEMENTS 

...... 7-1 

Definition ........••••••♦•*••* 

DIMENSION Statement. ........••••••••••" 

Data-type Statements .......•••••••■•••• 

COMPILER DOUBLE PRECISION Statement .... -a 

COMMON Statement .......•••••••••■••" 

EQUIVALENCE Statement ........-.•••••• ^ 

EXTERNAL Statement ......••••■••••••• ;'„ 

COMPILER NOSTACK .............•••-•• /_/ 

CHAPTER 8 - DATA INITIALIZATION 

.... 8-1 
DATA Statement ........•••• 

BLOCK DATA Subprogram .......••••••••• 

CHAPTER 9 - FUNCTIONS AND SUBROUTINES 

....... 9-1 

Functions ■ • • „_ 1 

Statement Functions 

Function Subprograms " 

Arguments of Function Subprograms 9 -4 

FORTRAN Library Functions 9 ""* 

Subroutines „_ 9 

Abnormal Returns 

DGC Fortran IV Library • * 9 " iQ 

Bit/ Word Manipulation . . • 

Clear a Bit (ICLR, BCLR) . . 9 -1U 

Set a Bit (ISET, BSET) 9 " l0 

Test a Bit (iTEST, PTEST) 9 -11 

Shift a Word (ISHFT) , y-iZ 



vii 



CHAPTER 1 
FORTRAN PROGRAMS 



PROGRAM UNITS 

7Tr^T-" ram ,. madc UP * „ ne ?r „ program ^, «**». — - =— 

compUed entities that may be any of the following: 

1) Main program 

2) Subroutine subprogram 

3) Function subprogram 

4) Block Data subprogram 

5) Task subprogram* 

A FORTRAN program can have only one main program as a program nnlt. 

Ml variables and arrays not 
FORTRAN program units are implemented as =|^ t ^^hapter 7) are placed on a run- 
declared as being in COMMON ™*^j£ f^N^be made to any program that does not 
time stack. Repeated entry prior to taking 
after COMMON storage, 

T1 , scarce to. of a program unit consists -^^^^^TTSS «ar 

z^TJ^r^^-^^^^ 7 - - te ™ ated by a cmiage 



return. 



Comment Line (C) 

TT^,^ ,., . c m teeter „**» 1 is a comment Ime. The comment may ho wrttten 

anywhere in the line following the C. 

A Hne of ton that has an X en f^^^^^Z^^^^^^^^ 
compiler tests whether or not lines ! ™^^™ "^ comDllc d; if no, the lines containing X m 
^^^T ^ %£*"?%££ ~s X for a description of ho, to nse 



the X option. 



STSra^n. I. «- — the Real Tim, ^ «^^S£ £££ ^ 

System. Task subprograms can be activated by me 



in PART II of this manual. 
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^^SOFJR^RAMTEXT (Continued) 
^£f£DlWy^2H££jCodejjnejA) 



r ines 01 assembly source code mar he included in a FORTRA- 

source code must have an A M character TO sitio" ^^-^^ PIOgram ' A ltoe of assembly 

encountered and pass the lime xntact to the^'se^L P ^ "^ ** A when «* ^ is 

Label 

If a line does not have a ^ X nr a ,•„ -„ 

reserved for a laM . B tidnc^ t i^ "nxTr ^"l ' f" *"" P ° SlU0M ' tfc ™* h 5 ™ 
reserved for a label. ' ct>Iumn *' character positions 2 through 5 are 

Urero^l. " ^ UnS ^' — * ' » * *** auu (1 eau bo pl aced cohere ta character ^ sMons 
-^ aureus are sl8 * flcaM ta laMs; H ^ ^ ^ ^ ^ ^ ^ ^ ^ 

The syntactical scar of a line m-iv h« «- 

character pesruou thereafter res = "csT^l^ II*, A SC ™ coI °" '" »ta 7 or a„v 

°~n appear vufur a He^th ^ti ^tS^ ^ ' 

Z2™iANSTATEj^ 

=r F o^'st ^^^ rt -^^^^--. * - of tea, may 

Continuation Lines 

—eat baes must have or bbuuh in ^^ZT^Z^Z^^^™ 

^^HLOrafermgof^ta^^ 

For compiler efficiency, Data General's ^rtrs v ^ 

order of statements is: ^ * * ° RTRA * N IV ^^ * partial ordering of statemext s. The 

1) COMPILER DOUBT F PRRrrcrnv ^^ 

-JULbLfc .RLCISION or COMPILER KOSTACK statement. 

2) OVERLAY or CHANTASK statement. 

3) PARAMETER statements. 

4) FUNCTION, SUBROUTINE, and TASK statements. 

5) Declaration statements. These he-in wit* +u . 

ooa BLE PRECISION , ^^'^znzSrZ^ZiZZ^zr 51 ^ 

*6) Statement functions. 

— !ZLlxecutable statements. 
•FORMAT statements and DATA iniHai^o*,- 

DA.A xnmatoataon statements are permissible in either category. 
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An example of a DGC FORTRAN IV scarce program is: 



REAL FUNCTION MAG (A, I, J ) 
DIMENSION A (20, 20) 
ASSUME A (1,1) LARGEST 

SCA G N AR^Y A TO CHECK ASSUMPTION 
DO 5 K = 1, I 

1 D P A 6 (K, ills 1 LARGER, SUBSTITUTE IT 

FORA(l.l) 

IF (MAG. LT. A(K, L))MAG=A(K, L) 

CONTINUE 

CONTINUE 

RETURN 

END 



C 

c 



FORTRAA^miAjRACTFiR^ 

The ASCII characters that make up the FORTRAN character set are: 

Letters: tT^ 

Digits: through 9 

Special symbols listed below: 



Symbol 



^ Blank 

Equals 
Plus 

Minus 
* Asterisk 

, Slash 

, Left Parenthesis 

\ Right Parenthesis 

Comma 

Decimal Point 
$ Currency Symbol 

Colon 

Apostophe 

Quotation Mark 
, Exclamation Point 

i. nnRTRANR' except as noted in Chapter 2 in 
Btai s m Sig — «. h .Data -ne« -JORTKAN IV , ^J^ 

regard to variable names and in Chapter binrej, 

i, h in Hollerith constants with the exception of those ^f*™*»* 

characters that are not permitted are: 
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^^2^^»AIIACTER_SET (Continued) 
^CTCode Character 



012 

014 
015 
034 
074 



Line Feed 
Form Feed 
Carriage Return 
Shift L (\) ' 
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CHAPTER 2 
ARITHMETIC AND STRING DATA 



otnst/^tii_a/ait^^ 

_ „_*__ is a h o», value that doe, not _« dur^ probata exe^o, 

Th ^ llc __. ot t ^e TaX ^^ ^r™:L=To:oo m &, 

a letter. Subprogram names must ioe aibi j, 
with the DGC Assembler and leader. 

, «,.<rmfica_it For example, the following 
• loit wn variable names are not sigmticanc. 
Imbedded blanks appearing within variable n 

identifiers are equivalent. 



XSQUARE 

X SQUARE 

XSQUARE 

;-:"," trtr "i-"™r. ,;.t— - ~ — «•«■ » — •■ 




legal variable name 

illegal variable name 

canl^eX (Statement numbers, octal struts m 

statements are not_ constants. ) 1 in a 

A paletot h as t„e data ^ %£™£%£%% K S" ^ ^ ^ " " " 

PARAMETER statement. The format 



PARAMETER Vj -Cj, v_=£2' • * * ' 1" - 11 



. XTCT FORTRAN Standard X3. 9-1966 was made 

i^Te^ption to ANSI FORTRA ^^\_ i<3 ^ven in Appendix B. 
-ff^^rv. A list of the reserved words is given 



in the interest of FORTRAN compiler 



efficiency. A list 
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each c is a numerical or logical constant 
Example of PARAMETER statement: 



PARAMETER H=3. 141592653, Ql=. 1731523D-7 
Examples of use of parameter K: 

PARAMETER K = 8 

COMMON / COMLABEL / C1(K), C2(K) 
DATA C1/K*K/ 
DO 1 1=1, K 
C1(I) = i* K 

CALL SUBROUT (CI, AB, K) 



Constants and variables have d»t* ^„^ 

INTEGER t h ^"«u^u;a. 

strung constants cannot be associated with paramiiiH 



constants 



An integer variable is usually implicitly tv^rf • 




Variables 

ITEM 
JOBNO 

LUCKY 
MAS KBYTE 



As shown, integer constants Ko 

letter K. Some additional examples l^f* * "** &rmat by WTia ^ ** """tax followed by the 
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Co^m^^A^^ (CoBtmued) 

Integer Data (Continued) 



Octal Constant DecimalVatae 



10K 

777K 

-IK 



511 
-1 



, n f, w,<A The range of integer values is -32, 767 to 32, 767 

Ab integer datum is stored in one word (16 bits). The range y 



inclusive. 
Real Data 



A real constat is signed or unsigned and consists of one of the following-. 

1) One or more decimal digits written with a decimal point. 

2) o. or more -maldtgt^^ 

rightmost digit. The exponent value may he explicitly , 
blank. 

A real variah, is usually implteitlg ^^J^^^"^ ^ ^ '' 

K, L, M, or N the symbolic name represents a real variaoie 



Constants 



0.0 

.000056789 

+15.E-04 

-005E2 



Constant Value 


Variables 


0.0 
.000056789 
+. 0015 
-500 


ALPHA 
B25 
EXIT 
C 



A real datum is stored in two 16-bit words. 

Double Precision Data 

777r^~^ nstant is signe d or unsigned and consists of the following: 

, sequence of decimal digits wrttten with or without l^^^^f^ When! 
extent written as the letter D followec , **??££ Ti ally Ssumed to me immediately 

rr ri^ £ t a ssrsr %%£%££> - «^ » - «*-* ** 

may not be blank. 
A douhle precision vartahle must he explicitly stifled as such in a OOldBr, rKEClSlO. type 

statement. * 

• .rnMPII ER DOUBLE PRECISION" each real 
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^lii^m^ (Continued) 

■^MeJ^ecisionData (Continued) 



^5S£!HH!L ConstmtYalm 

-21987654321D0 -21937654321 

5 0D-3 <005 

.203D0 >203 

Variabtejype^tatement 
DOUBLE PRECISION D, E, F2 



A double precision datum is stored in 4 words. 
Complex Data 



~ "^ ° rdered -" ° l — « -*-> «- constats, ^ „. a comma and 
A co mpfex singl e- proclslon va riabl e M te explicitly sm as ^ ^ a ^^ 



Constants 



Constant Value 



!jf'f' L86 > 3.2+1.861 

12-1' 0-0) 2. 1+0. 01 

(O.0E3, -2.12) 5000. -2. 12i 

COMPLEX CI, C2 



A complex single -precision datum is stored Ln 4 words. 

A double precision complex constant is an ordered oair of ,™ . 

constants separated by a comma and enclosed ^SlT " "^ ^ PreCiSi ° n 

t^ZSfSZSrS"™* ™ * e ^% ^- fi e d as such in a D0UBLE ^^ 



Constant 



(-3456. 0012D-5, . 0034S67D+3) 

— -— --2-_^Lj;___- ;: 



[DOUBLE PRECISION COMPLEX DC1, DC 2 



*^^^^^^^*J™^~ T ~~»~ 
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fggO)^rAb7^ (Continued) 

Do uble Precision Complex Data (Continued) 

A double precision complex datum is stored in 8 words. 

Logical Data 

A logical constant is a truth value written as: 

.TRUE. or .FALSE. 
A logical variable must be explicitly specified as such in a LOGICAL type staten.ent. For example: 



LOGICAL BOO LI, BOOL2 




, Thp „„ 1|1P TRUF is stored as octal 177777 and . FALSE, as 
A logical datum is stored in one word. The value . TRUE . is sror ^ 

000000. When testing for logical, any non-zero word will be treated as the value 
177777 is also the integer value -1. ) 

String (Hollerith) Constants 

*• o „f ^w-,ctPrs of the FORTRAN character set, including blanks. A string 
String constants are strings of chaiacters ot the ru ki*a ^ represented by 

th"" The integer constant indicates the number of characters m the strmg: 



equivalent strings 



as characters within Hollerith constants. 
String constants may appear in: 

1) The I/O list of a TYPE or ACCEPT statement. The constant is written out precisely as it 
appears in the statement. 

2) 4 FORMAT statement. On output, the string is written to the output device On input, the 
} string is overwritten by an equal number of characters from the input record. 

3) A DATA initialization statement. The data type of the corresponding variable (or variables) 
in the variable list is ignored. 

4) The argument list of a CALL statement or the argument list of a function reference. 

as a one-word integer operand rather than a string. 
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^^X^^^IA^^ (Continued) 

^BmM£]^I^lConstmts_ {Continued) 



Within string constants, octal codes for Aqni ™r,*-~~i u 

appear. The codes will ho passed to tHe^r'TtT^' dcUmited b >' ^* jackets, may 

caxri.se retorn « he, '^a L l^l™ 1 " * r "Ration. For cxampte, a 



"DATA FOLLOWS: <15: 



Note that when using formatted I/O (WRTTF /form at «-. * 

should not be passed in strLn f constants ^u/ ^flf.ii l^f tS) ' ""^ COntro1 information 

-_ mg constants but should follow ANSI FORTRAN standard conventions 

^rr. -: ;s:r ^.rrrx t, (two characters - word >- >*™*>- « - 

™. -a « ace, ho^er, ^e^ l^TCa^^ ' «** 

ARRAYS AI\ T D SUBSCRIPTS 

of the array name, called HuZZt "' ° f "* "^ '* ^"^ ^ a i alif to 

^ -^^ or d a t a w 



DIMENSION A<10, 10) A is a TOo - occasional real array of ,00 ele,„e„ ts . 

COMMON m , 5, 5) B ls a 3- d i mensiOT a, real array of 50 elects stored ta 

common. 

|™^ C(5 - 2 ' 2 ' 2) C " * ^-^toensional integer array of 40 elements. 

^^^ir^x^ — iPts ta DIMENSI0N Md data ^ statc . 

SUBROUTINE SUB25 (MAT, I, j) 

F-n !•(■;•■: r i, j 

REAL MAT (I, 0:J) 



Values for I and] would be passed in a call to SUB25. 
Note that array MAT is subscripted as 
MAT(I,0:J) 
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ARRAYS AND SUBSCRIPTS (Continued) 



DIMENSION 1X5) 



that the first array element is «» and the last is B(5). Both upper and lower bounds 



assumes 

are specified in the following example: 



DIMENSION F(0:11), G(-2:4, -3:0) 



The array F is a one -dimensional array of 12 elements, the tot : „. ] Whieh is F(0) TTte seoond 
Irraj 's a wo -dimensional array of 7x4 or 28 elements; the first element „ G( 2, 3). 
The snbscript of an array element is written as a parenthesized list of Script expressions. Eaeh 
subscript expression can have one of the following forms: 

2) in expressions witlnn executable statements, each element of the subscript list must be 
an expression whose value is of type integer. 

Examples: 



Kh J) 

could be an element of array A(10, 10) 

B(1,U) 

is the first element of array 13(2,5,5) 

C(ITEM-l) 

could be an element of array C(0:6) 
D(I+IFIX(SQRT(R -B/3.0)), J/K) 

could be an element of D(3, 8) 



The subscript of an array clement cannot assume a ^J^^ZT^^^^ 
lower bound for that dimension of the array or larger than the ^* ^£ £ 

the array, except it a single subset is given for a ™**^3? *™ ,_ ( (he "f elem ents of 
rcT^SrS L^S: ^^"- SrSi U « reference 
aUowcd in DATA and EQUIVALENCE statements.) 
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^M^NDOTBSCRIFTS (Continued) 

For example, elements of array C(15) are stored: 



C(l), C(2),..., C(15) 



Elements of array A(10,10) are stored: 



A(l,l), A(2,l),..., A(9,l), 

A(10,1), A(1,2),..., A (9,10), A(10,10) 

Elements of array B(2,3,4) are stored: 



B(l,l,l), B{2,1,1), B(l,2,l), 13(2,2,1), 
B(l,3,l), B(2,3,l), B(l,l,2),..., 
B(l,3,4), B(2,3,4) 
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CHAPTER 3 
EXPRESSIONS 



DEFINITION OF AN EXPRESSION 

,n expression is a conation of data elements (variables, array elern^^cttms. and constants) 

wLXTrrs. The FORTRAN operators are arithmetic, relational and logical. 

ARITHMETIC EXPRESSIONS 

7^T^^~ £ormed with arithmetic operators and arithmetic data elements. The 

operators are: 

Operator Operation 



+ 



Addition (or unary plus) 

Subtraction (or unary minus) 
* Multiplication 

/ Division 

** Exponentiation 

An arithmetic datum has one of five possible data types: 

Type Rank of Data 

double precision complex highest 

complex 

double precision 

real vr 

integer lowest 

The following rules apply to evaluating arithmetic expressions: 

1) When either plus (+ ) or minus (-) is used as a unary operator, the data type of the result 
is the same as that of the operand, 

2) When two operands of the same data type are nsed in an expression oontaining one of the 

operators 

+ . */ 

the data type of the result is the same as that of the operand. 

3) Mixed data tv-pc operands are permitted. In expressions formed with the orators 

+ .♦/ 

the lower ranMng data type operand is converted to a ^^^^^ a ^ mEX 

the temporary has an imaginary part equal to zero. 

* nniim f PRFPTSTON operand and a COMPLEX operand, the 
When an expression consists of a DOUBLE FRECIMU.N °l« ra f» temporary and the 

DOUBLE PRECISION operand is converted to a single precision COMPLEX temporary 
,-,. eilr ,,:" ;■■■■}■.' -,v '■■■■■ : ' '< ''."d. Id.A. 
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ARITHMETIC EXPRESSIONS (Continued) 

3) (Continued) 

Arguments of library- tactions axe not: converted to terr4x3rax.es of the appropriate type. 

4) ^i XCd data tyl>CS are Pennitted » expressions consisting of base and exponent oper-uvl* 

r^^^S^Zt^ " raiSe m IOTEGER base to * — ^^ 

When base and exponent operands arc of the same type, the result is also that data type. 

Whenthe base and exponent are of differing data types, the resultant value will be * the 
tagher data type, exeept in the ease of raising a COMPLEX base to a Dol^E mECmm 
exponent. The result of this operation is DOUBLE PRECISION COMPLEX * RECISI0 * 

5) ^^^^r 1 the ordcr in wMch operamm are evateed ^ - 

a) The arithmetic operators have the following precedence: 
Operator Precedence 



/ * 

+ - 



highest (evaluated first) 

I 

lowest (evaluated last) 



^ S ^ th T Xat0TSam ° f CqUal Precedence ' operations are evaluated from left to 
right rn the expression. 

C> IZTs^ZlTt h altGr the ° rder ° f OPeTat ° X *«****<*' A parenthesized 

expression is evaluated as an entity before further evaluation proceeds. When parenthesized 
expressions are nested, the innermost is evaluated first. parenthesized 

The rules for evaluating mixed data types are shown in tabular form in the tables follows Th. 
resulting data types are given in the do-able lined area. following. The 



OPERATORS 

+ - */ 



OPERAND 



Integer 



r 



Integer 1 Integer 



Real 



I Real 



Double (Double 
Precision] | Precision 

Complex j Complex 



Double I Double 



Real 



Real 



Real 



Double 
Precision 



Complex 



Double 



OPERAND A 
Double 

Precision 



Double 
Precision 



Double 
Precision 



Double 
Precision 



Complex 



Double 



Complex 



Complex 



Complex 



Complex 



Complex 



Double 



Compi£E4£2IBP}:^ I Complex [ Complex [ Complex 



Double 
Complex 



Double 
Complex 



Double 
Complex 



Double 
Complex 



Double 
Complex 



Double 
Complex 
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ARITHMETIC EXPRESSIONS (Continued) 



OPERATOR 



Integer 



EXPONENT OPERAND 

Double 
Real Precision 



Complex 



SAMPLE ARITHMETIC EXPRESSIONS 

Some examples of legal arithmetic expressions are 
of the expression. 



Double 
Complex 




L LEGAL 



Double 
Complex 



Double 

Complex 



Double 
Complex 



Double 
Complex 



shown below with the data type of each data element 



INTEGER I, J 

REAL A, B 

DOUBLE PRECISION D 

COMPLEX C 

DOUBLE PRECISION COMPLEX DC, CD 



C*DC**C 
B/(I+J) 
D-B**A 
D*I**J 



legal arithmetic expressions 



RELATIONAL AND LOGICAL EXPRESSIONS 

Relational Expressions 

I^tional cxp^ol consist, of 2 arithmetic expressions separated by a relational operator. The 

relational operators are: 

Representing 



.LT. 


Less than 


.LE. 


Less than or equal to 


.EQ. 


Equal to 


.NE. 


Not equal to 


.GT. 


Greater than 


.GB. 


Greater than or equal to 
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^^™^MJ^E^^ (Continued) 

Logical Expressions 

9m^l Representing 

OR 

' N0T ' Logical negation. Result is the bit complement of the operand. 

gvglHMion of logical and Relational Expressions 

Logical and relational operations may be combined within expressions. 

.TRUE. or .FALSE. 

where: .TRUE. is 177777 ( _ 1} 

• FALSE. is 000000 (0) 

8 

These octal values for . TRUE imri pat qp 

to a troth valne. When testing fa a ttutt value a^noT ^ "^ "" M *= «■"* ° f "vata**™ 

all zeroes is considered . FALSE. 7 """^ "'° rd 1S ™=Mered .TRUE, and a word of 

Hollerith (string) constants may anoear «,h™,., ,-„„ 

expressions. Only the first two cStSofX f ^ "° rmittcd ta ^rcal -d relational 
ASCII value of the'ehaxacters. Tte fet »m c " -te^ T"* ** Si ^ f ™' "^ -present the 
or compared with integer and logical values. CharaCl ° rS ° f the S1 ™S constant can be AXDed, ORed, 

proceeds fro m left to rigS ^^S^"^^ ^ "* ^"^ 

^Se.x^s o^s/ 1 ^, jtT rd r with thc — «* *"e -rater 

in a FORTRAN expression is " ^^ "^^ns. The precedence of all operators 

Operator ^ 

~ Precedence 



** 

* / highest 

+ - 

•GE.,.GT.,.EQ.,.NE.,.LT.,.LE 

. NOT. 

. AND. 

.OR. 

lowest 



"Z^£^Z T^^X!i"S:^ M *°* iCal "" rCM °- ™>- -* for truth 
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RE 



T stomal AND LOGICAL EXPRESSIONS (Continued) 



Ev^^^TL^ic^^^^on^ExE^B^. ( Continued > 



TRUTH OPERATIONS 



(. FALSE. =000000 g .TRUE. =177777 g ) 



Logical Truth Table 
Y Operand Z Operand .NOT.Y 



.FALSE. 
.FALSE. 
.TRUE. 
.TRUE. 



.FALSE. 
.TRUE. 
.FALSE. 
.TRUE. 



.TRUE. 
.TRUE. 
.FALSE. 
.FALSE. 



Y.AND.Z 

.FALSE. 
.FALSE. 
.FALSE. 

.TRUE. 



Y.OR.Z 

.FALSE. 

.TRUE. 
.TRUE. 
.TRUE. 



Logical and Relational Truth Evaluations 
Assume that: A = .TRUE. W = 2 X = 4 



Y = 6 



Expression 

W.LE.X 

W.LT.X.AND.W.LT.Y 

W.NE.X.AND..NOT.A 

.NOT.A.OR.W.EQ.X 



Value 

.TRUE. 
.TRUE. 
.FALSE. 
.FALSE 



Interpretation 

true and true 
true and false 

false or false 



FULL WORD OPERATIONS 
]Vv: - hv-Bit Logical Operations 



Operands 

Y = 101010 
Z= 110100 



Assume that: j 
Expression 
J .AND. K 
.NOT. J .AND. K 
5*(-(K .EQ, L)) 



.NOT.Y 



.NOT.Z 



Y.AND.Z 



Y.OR.Z 



oioioi ooion iooooo iiino 

t ncrir^l and Relational Full Word Evaluations, 

= 377 8 K = 47117 8 L = 200 g 

Value Interpretation 

MaskK with J. 
Mask K with the complement of J. 



117 

47000 





5*i-(K.EQ. ,, NO , *)) 5 



Since K does not equal L , the parenthesized 
expression evaluates to .FALSE, (0)= 
47117 is ASCII for NO . The result of the pa- 
renthesized expression is .TRUE, ( -1 ). 
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CHAPTER 4 
ASSIGNMENT STATEMENTS 



DEFINITION 

The format of an assignment statement is: 



variable = expression 



wh ere: variable is a subscripted or non- subscripted variable name. 

expression is any legal FORTRAN expression. 

statement. 

ASSIGNMENT TO A VARIABLE 

The rules for assignment of the value of an expression to a variable are: 

1) The only illegal assignment statements are: 

INTEGER = (DP) COMPLEX 

REAL = (DP) COMPLEX 

DOUBLE PRECISION = (DP) COMPLEX 

2) If the expression and variable are of the same data type, the expression is simply evaluated 

and assigned. 

3) INTEGER = REAL 

INTEGER = DOUBLE PRECISION 

Fix the floating point number and assign. 

4) REAL = INTEGER 

Float the fixed point number and assign. 

5) REAL = DOUBLE PRECISION 

Truncate the mantissa by 32 bits and assign. 

6) DOUBLE PRECISION = INTEGER 

Float the fixed point number to a full 56 bits of mantissa and assign. (The expression is not. 
floated to REAL and then extended by 32 bits of zeroes.) 
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^E^^2lLJ2A^^BLE (Continued) 
7) DOUB LE PRE CISION = RE A L 

Extend the single precision mantissa by 32 bits of zeroes and assign. 

I^Tf^E ^t^ e T n eXPreSSi ° n " a ^^^ variable, error 
only ^precise 4 6 »?^^^ 8 . ""^ *"* ** dOU *-P— s ^ liable Mil 

8) COMPLEX = DOUBLE PRECISION COMPLEX 
Truncate each mantissa by 32 bits and assign. 

9) DOUBLE PRECISION COMPLEX = COMPLEX 

Extend each single -precision mantissa by 32 bits of 7M ™ m 

he given) y S 0t zeroes - (Error message 47 will 

10) COMPLEX = INTEGER 

Float the fixed point number, set the imaginary part to zero, and assign. 

11) COMPLEX = REAL 

Set the imaginary part to zero and assign. 

12) COMPLEX = DOUBLE PRECISION 

Truncate the mantissa by 32 bits sot fh« i™-,™ 

u> ^ eats, set the imaginary part to zero, and assign. 

13) DOUBLE PRECISION COMPLEX * INTEGER 

Float the fixed point number to a full 56 bits of zeroes set thp ima „- 

and assign. zeroes, set the imaginary part to zero, 

14) DOUBLE PRECISION COMPLEX = REAL 

Extend the single-precision mantissa by 32 bits of zeroes set th„ * m - 

zero, and assign. «roe 3 , set the imaginary part to 

15) DP COMPLEX = DOUBLE PRECISION 
Set imaginary part to zero and assign. 

M) As sigmM to a L0G1CAL yariaMe £oUows ^ njies ^ ass ^ mrat ^ ^^ 

17) ^™„;r ^r 2^r GER ™ s - t,k asc " — <* <* <*« - 

ASSIGNMENT EXAMPLES 



Some examples of assignment statements 



are: 
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ASSKNMENT EXAMPLES (Contimied) 



S = 5. *(3**A+SQRT(A*I)/I) 

b = cm^sw(cm) 

LOGIC(4) = X.GT.5.0R.Y.LT.Z 

K(I) = 34567. Ch4/I 

j = 10. 0*SIN(X) 

L = Z. LE. 2. 5. OR. I. NE. "NO" 



The following chart 



is a synopsis of the rules for the assignment of an expression to a variable. 



TYPE 



INTEGER 



P 
e 

o 

f 

V 
a 
r 
i 
a 
b 
1 



REAL 



DOUBLE PRECISION 



COMPLEX 



DOUBLE PRECISION 

COMPLEX 



INTEGER 



evaluate 

and 

assign 



float 

and assign 



float to 
56 bits and 
assign 



float, set 

imaginary 
part and 
assign 



float, set 
Imaginary 
part to zero, 
and assign 



Type of Expression 



REAL 



fix and 
assign 



evaluate 
and 

assign 



extend 

mantissa 
and assign 



set imag- 
inary part 
to zero and 
assign 



extend 
mantissa, 
set imagi- 
nary part, 
and assign 



DOUBLE 
PRECISION 



fix and 
assign 



truncate 
mantissa and 
assign 



evaluate 

and 

assign 



truncate man- 
tissa, set imag- 
inary part to 
zero, and assign 



set imaginary 
part to zero, 
and assign 



COMPLEX 



ILLEGAL 



ILLEGAL 



ILLEGAL 



evaluate 

and 

assign 



extend 
mantissa 
by 32 bits 
of zeroes 



DOUBLE 

PRECISION 

COMPLEX 



ILLEGAL 



ILLEGAL 



ILLEGAL 



truncate 

and 

assign 



evaluate 

and 

assign 
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CHAPTER 5 
CONTROL STATEMENTS 



DEFINITION 



Statements in a FORTRAN program are normally executed sequentially. Control statements allow 

the programmer to change the flow of program logic. 



UNCONDITIONAL GO TO STATEMENT 
Format: 



GO TO n 
GOTOv 



where: n is a statement number. 

v is a non- subscripted integer variable. 



Format 1 of the statement causes co- 



ntrol to transfer to the statement numbered n. 



transfer to the address which is the current value of integer 



Format 2 of the statement causes foment 

variable v. This value must have been preset by an ASSIGN statement. 



GO TO 25 



25 CONTINUE 



Control is transferred to statement 25. 



In all GO TO statements, "GOTO" may 
COMPUTED GO TO STATEMENT 



be written with blanks between -GO" AND 'TO". 



Format: 



GOTOOn, n2». • • >%n)» J_ 



where: n p n 2 , . . . , n^ are statement numbers. 

v is'a non-subscripted integer variable name. (Note that the comma separating the right 
parenthesis from v is not required. ) 
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^M^illDGOTOM^TEMENT (Continued) 



Control is transferred to n,-, where I Is the v-W nf v « 

executed and a fatal run-tiie error ^11 result ~ Z ~ ° r - <X ' thfi G ° T ° Sta£ement « ** 



GO TO (10, 100, 40 5 9S Q) K v 

! ' - D, ' jj K K must evaluate to 1, 2, 3, 4, Q r 5 



iererliO^iciOelTO STATEMENT 
Format: 



GOTOv, (m, n 2 , . . . , nm ) 



where: n 1} n 2 , . . . , n m are statement numbers. 

GO TO, i.e. , the list ( a . . . ^ is s^^usf) ^^ " '" ls trMted M » "neonditmna, 

ASSIGN STATEMENT 



Format: 



ASSIGN n TO v 



where: n is a statement number. 

"GO ™ n s ;~r d iDteger VariaMe ™ *" a "— S * « ass^d or unconditional 
nlmh^T CaUS6S a SUbSeqUCnt "^ G0 TO statement to transfer centre! to the 



statement 



ASSIGN 5 TO J 



GOTO J 



GO TO J, (25,16,5,40) 



Control is transferred to the statement numbered 5 
^hen the unconditional GO TO or when the assigned 
GO TO is executed. 5 
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ARITHMETIC IF STATE ME NT 



Format: 



IF (e) ni» n 2 » n 3 



where: e is an integer, real , or double precision expression, 
np n->, n3 are statement numbers. 

to statement n 3 if the value of the expression is greater than zero. 



IF(A(J,K)-B)10,4, 30 
IF (Q*R) 5, 5, 2 



LOGIC A L IF STATEMENT 



Format: 



IF (le) s 



where: le is a logical expression. 

s is any executable statement (assignment statement, control statement, or I/O statement) 



except a DO. 



The loeical expression is evaluated. If the expression is true, statement s is executed. Control then 
passeTto teTel statement following the logical IF unless statement s transfers control. 

If the expression is false, statement s is bypassed m d control passes to the next sequential statement. 



IF (A.AND.B) F=SIN(R) 
IF (I.GT.0)GOTO25 



CALL STATEMENT 



Format: 



CALL subr (a P ^, . . . , a^) 
CALL subr 
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where: subr is the name of a subroutine or a dummy variable (see EXTERNAL) 

2l 'tte 's^&T aCtUal aXgUmeilt nameS that replaCC dUmm y ar ^ me * "ames in 
The statement references the designated subroutine, which is executed rw™i -e * ^ t 



Arguments of subroutines are described in the section dealing with subpro 



grams. 



CALLQUAD(9.73,Q/R,5,R-S**2.0,X1,X2) 

CALL OPTIONS 



RETURN STATEMENT 
Format: 



RETURN- 
RETURN v 



Where '' Z progr™" iM6ger Variat>le Wh ° Se VaIUe repreSentS a Statems " "»"*« i- the cal Ung 



statement. 



1) Return from a subroutine is made to the statement following the CALL 

2> ?^xr r r«r^ e rr — g tte ^ ~ - * — 

f^:" ess ™^f r r» aIIo T; for error reairas ° r <"***-«*««<* brmches , and 

immediacy S^ ■ ^IT ' ^^ " A " ^^^ "*"" ™'~ ~"~- " ~" 



abnormal return must return to the 



CONTINUE STATEMENT 
Format: 



CONTINUE 



^=S£=~S5?3SS= "* 
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CONTINUE STATEMENT (Continued) 



S = 
5 DO 15 I = 1. N 

IF (B(I)-IOOO.) 10,15,15 
10 S = S4C(I)*B<1) 

15 CONTINUE 



PAUSE STATEMENT 



Format: 



PAUSE 
PAUSE s 



where: s is a string of ASCII characters which will be typed out following the pause. 

„ v ^„rir,o- A messaee. indicating a pause and giving the 
The statement causes the program to cease executing. A message, i g £ at the int of 

text string at the pause, will be printed at the console printer. To resume executx 
interruption, the programmer presses any console key, , . 

STOP STATEMENT 
Format: 



STOP 
STOPS 



where: s is a string of ASCII characters. 

The statement causes unconditional tension of program exee^lon A message indicating a stop 

^d givSg the text string, if present, will he printed at the console printer. 



STOP LABEL 70 



DO STATEMENT 
Format: 



D0 2. 1 = ELl' S 2, — 3 
DO n i = mi, m2 



5-5 



DO STATEMENT (Continued) 
where: n Is a statement number. 

I is a ixmsubscripted integer variable name called the control variable. 

ale'flS 2 ; J?^ integCr Constants ° r ^subscripted integer variable names. They 

T ,lf, T PaX r etCr ' flnaJ P arameter ' ^ incremental parameter respective* 
I- Default value of m, is 1. ^ must te greater th£ffl Qr ^ tQ L «spectively of 

repecitivel> executed. Tins set of statements is caUed the range of the DO. 
=A £ 3 , - i hy ^ a^^-afeS SSSrrS^ ^^ TO W 

DIMENSION A(,00, Thc D0 range> wUch ^ ^^ ^^ ^ 

is used to form the sums of squares of the elements 
of array A: 

SUMSQ = 0. 100 

DO 25 I = 1,100 y m) 2 

25 SUMSQ = SUMSQ + A(I)**2 '- i - i 



nested and outer TO Wte^"""^ ™ ™ teger ' ^"^^rul array. Both thc 

iu uuki i/u loops terminate at dummy statement CONTINUE. 



INTEGER SUM, MATRIX (10, 20) 



SUM = 
DO 30 I = 1, 10 
DO 30 J = l, 20 
SUM = SUM + MATRIX (I, J) 
30 CONTINUE 



DO loops have the following restrictions: 

1} t t n oo^ Control can be transferred out of 

2> J:!" an arithmetic 

' ! ' PAUSE ' D °' ° r a lo ^ cal IF containing any of these statements. 

3) The control variable cannot be redefined within the DO range. 

z^jsszz ^^ri varMe ™ g its finai ^— ***- ■* 

the statement labeled n! ° 1<>OP 1S CXlted by exec ^ the next statement following 
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DO STATEMENT (Continued) 

If . DO loop is extted bv execution of a GO TO or arithmetic IF statement, the coittroj I variable 
re^Ss defeed. Its value is equal to its value at the time of exit from the loop via the GO TO o, 
arithmetic IF, 
The range of a DO loop can be extended to include additional statements or program units if: 

n \ statement (GO TO or arithmetic IF) exists in an innermost, completely nested loop 

} of "^iK that transfers control out of the innermost, completely nested loop, and 

7) A statement txansferring control back into the innermost, completely nested loop exists 
and might logically be executed as part of the extended range. 

The extended range includes all statements that might logically be executed ontside the -innermost, 
completely nested loop (including the transfer statement). 



SUM = 

DO 30 I = 1, 10 

DO 25 J = 1» 20 

SUM = SUM + MATRIX (I, J) 

IF (SUM .GT. TOTAL) GOTO 50 
25 CONTINUE 
30 CONTINUE 



50 



completely nested innermost DO 



GO TO 25 



extended range of DO containing at least one statement 
transferring control back into the innermost DO. 
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CHAPTER 6 
INPUT/OUTPUT STATEMENTS 



FORTRAN INPUT/OUT PUT 

FORTRAN IV provides for five types of input/output: 

1) Unformatted values: Externally recognizable numbers in ASCII (teletype standard) code 
} ^SlSd^rerted to their internal computer representation and vxcc versa. 

a formatted values- Ob input, external values in ASCII code are interpreted according to 
} i^S^flcatton. On output, internal values are displayed or stored on the 
external medium according to a FORMAT specification, 

3) Binarv values: Internal data is transferred to an external device or vice versa with 
absolutely no change in structure (representation). 

4) Ron-time values: Conversational input/output is permitted from the teletypewriter, in 
a ccordance !^ programmed ACCEPT and TYPE statements. 

5) Control: Positioning of devices and end of input and output are directed by specific 
iiSesmints (REWIND and ENDFILE) or by subroutine CALLs. 

PROGRAMMED I/O USING READ AND WRITE 

device and WRITES out to an external device. 

General forms of the READ and WRITE statements for ASCII mode are: 



READ! WRITE ( channel) f list } 

READ! WRITE ( channel, format) { Hstj - 



The first form is used for unformatted I/O and the second for formatted I/O. 

In the statement formats: 

channel is an I/O channel number associated with the file or device. There arc 64 *^els 

fdllF); £e page 6-23 for a list of devices and files associated with pre-assmmed channels 

and fob? information on programmer assignment of channels. 

format is the number of the associated FORMAT statement or the name of an array containing 

the format specification. 

list is a list of names of variables which are to be given values (READ) or whose values are to 

Ifwritten (WRITE). If list is not given, READ will read and ignore an entire record whde* RITE 

^^^ILm^rrn^ in the FORMAT statement, perform any carnage control 

specified and write a record. 
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I/O LISTS OF READ AND WRITE STATEMENTS 

The I/O list contains the names of variables, including arrays and axrav elements which fl „» m 

" a t ™ srs^ ^™ d> the i/o «« ™>- ™^. Houc^ strtags „ * , rimn vertetim 



( list , j.=mp m2 [.£13]) 



where: i is the control variable and must be an unsubscribed integer variable. 

Bl is the lower bound; m 2 is the upper bound; and m 3 is the increment of i. m| , 
m^ and m 3 must be integer constants or unsubscribed integer variables If 
m 3 is not given, the increment is +1. 

Some examples of I/O lists are: 



READ(13,5) G, B(l), C, B(2), D, B(3) 
WRITE (12, 101) A, B, I 



DIMENSION A(3, 4) 

READ (11, 5) A The READ statement reads in the entire array and is the 

READ (11,5)A(1,1),A(2,1), . . . , A(3,4) 



same as: 



^c~ rr:^^^ ui :* can ^ enciosed in ™- ^ — 



WRITE (12) I, A, A(I,J) 

WRITE (12) (I), A, A(I, J) 

are all equivalent 
WRITE (12)(I,A),(A(I,J» 

WRITE(12)((I,A),(A<I,J))) 
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n^ DO inwlieci list affects the transfer of its associated list of variables in much the same way 
Z Zm^^SScts the range of the DO. So m e examples of DO-implied lists are: 



READ (13, 20)A, B, (C<I), 1=1, 3) 

is equivalent to 
READ(13, 20)A, B, C(l), C(2), C(3) 



WRITE (10, 20) (A, B, C, D, 1=1, 2) 

is equivalent to 
WRITE (10,20)A,B,C,D,A,B,C,D 



READ (11,20) (C(I,I), 1=1,4,1) 

i- equivalent to 
READ(11,20)C(1,1),C(2,2),C(3,3),C(4,4) 



Note that a DO-implied list must be enclosed in parentheses. 

DO-implied lists may be nested to any depth. A comparison of examples of nested DO-implied lists 

wSh Tested Dofloopsfwill indicate how the nested DO-implied lists are mterpreted. 



READ(13,25)((A(I,J),J=1,4),I=1,9,2) 

The equivalent DO statements would be: 

DO 20 I = 1, 9, 2 
DO 20 J = 1, 4 
20 READ (13,25) A(I, J) 

The equivalent simple list would be: 

READ(13,25)A(1,1),A(1,2),A(1,3),A(1,4), 

A(3,1),A(3,2),A(3,3),A(3,4), 



A(9,1),A(9,2),A(9,3),A(9,4) 
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UNFORMATTED I/O 



The spacing of output, when unformatted, provides an 8 -character field for integer an 4 1««™i * a * 
a 16-chaxacter field for real data, a 32-cbaracter field for double p^^^S^ ^t' 
a 64-character field for double precision complex data, A carriag return " s Lttte Twta the 



1 = 7 
WRITE(12) I 



Channel 12, by default, is the line printer. The above causes printing of the line: 

AAAAAAA 7 



R = 7.1 

WRITE (12) R, I 

causes printing of the line: 
AAAAO. 710000EAA1 A£iA&££A7 



DIMENSION A(3, 2) 



R = 7. 1 
DO 2 I = l, 3 
DO 2 J = 1,2 
2 A(IJ) = I-KJ-1) 

WRITE (12) A(3,l), R, A(l,l) 



causes the printout, where I-KJ-1) has been floated before assignment to A(I, J), f the following: 



£A£A0. 300000E£.MAAA£0. 710000EAA1AA^A0. 100000EAA1 



The same array A with the output statement 



WRITE (12) "ARRAY A: <15> ",A 



causes the printout: 
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UNFORMATTED I/O (Continued) 



ARRAY A* 

££££0. 100000EAAIAAAA0. 20G0OOEAMAAAA0. 200000E££1£££AO. 300000EA.il 

AAAAO* 300000EAA1AAAAO. 400000E AA1 



If the output -statement is: 



WRITE (12) (0, K, AG, K), " < 15 > ", K=l, 2)J=1, 3) 



the following priBtout results: 



AAAAAAA1AAAAAAA. 1 



\0. 100000EAA1 
0.2 
0.2 
0.3 
0.3 



^3AAAAAAA 2AAAA0. 400000E AA1 



Free form or unformatted READ uses an I/O Est to determine the order of input exactly as unformatted 
WRITE uses it for output. 

On input, the programmer distinguishes individual data by separatmg the data with commas or e^-of- 
record indicators (carriage return from the teletype. ) Thus to fill array A of srx elements the FORTRAN 
program will read the teletype (channel 11): 



READ (11) A 



The programmer can satisfy the READ by typing: 



1, 2, 3, 4, 5, 6 ) 

or by typing: 

1, 2, 3) 

4. 5) 
6 ) 

or by typing 

1, 2, 3.1, -5E2, 0, .lE-3) 



The READ wiU convert data types from integer to floating point or vice versa if required by the 
internal data type. 
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FORMATTED I/O 

In DGC FORTRAN IV, the specification of format serves two basic purposes: 

1) For input (READ), formatting allows the data to .be represented compact* and in a 
form suitable for ready duplication of large quantities of input from a card or card 
image medium. 

2) For output (WRITE), formatting allows precise control of the layout of the data as 
it will appear on the printed page. 

Formatting specifications allow the programmer to control field width allotted to any datum the 

TTft, f CCn •?? S ' the aSSigliment of data to Particular records or Hues, and the notation in 

which the data will be represented externally. 

The specification of format can be given in a FORMAT statement or can be contained in an array 
that is read into at run-time. } 

FORMAT Statement 

A FORMAT statement has the form: 



n FORMAT ( specification ) 



where: n is a statement number that appears in the READ or WRITE statement that references 
the format specification. * ~" 

specification is the list of field descriptors, field separators, Hollerith strings, repetition 
constants, etc. , that together define the formatting of the data being input or output. 

The field descriptors of a FORMAT statement are associated with the variables appearing in correspond- 
ing order in the list of a READ or WRITE statement. ^rrespona 



20 FORMAT (F10. 2, E15.5) 
WRITE (12,20) A, B 



w>l h ^Ti!, le ; theWRITE ^ment references FORMAT statement 20. Variable A is associated 
with the field descriptor F10. 2, and variable B is associated with the field descriptor E15. 5. 

Specification of Format Information - General 

The specification allows the programmer to describe the format of all forms of numeric data and 
string data, to include Hollerith constants, to set tabular output, to control vertical spacing of output, 

Essentially, the specification consists of one or more field descriptors that must be separated 
unambiguously. p^i^w 
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FORMATTED I/O (Continued) 

Separators of Descriptor Fields 

The following are used to separate field descriptors in a format specification: 

Commas can be used to separate field descriptors within a single unit record. A unit record 
li^iiSFally defined in terms of the device being accessed - end of lines on teletype or printer, 
80 columns on a card, etc. 

Ho separator is needed in DGC FORTRAN IV if two field descriptors can be identified 
unambiguously. 

Slashes separate field descriptors at the termination of a unit record. 

Repetitive slashes can be used to indicate empty unit records, for example, lines to be 
skipped on the teletype or the line printer. 



21 FORMAT (14, E15.5) 

comma between 2 numeric descriptor fields. 

22 FORMAT (14 "DATA IS: '* 4E15.5) 

quotes set Hollerith string off unambiguously from preceding and following descriptors. 

23 FORMAT (14, 4E15.5///5F10. 2) 

if output to TTO or LPT, triple space before output of data represented by descriptor 
following slashes. 



Basic Numeric Field Descriptors 

The basic field descriptors to handle numeric data have the following formats: 

I W - Jnteger 

Fw. d - Floating Point 

Ew.d - Explicit exponent floating point 

rj^.d - Double precision floating point 

Gw. d - Generalized floating point 

where: w is the field width given in character positions. 

d is the number of digits after the decimal point in real and double precision data (except 
for G output conversion, described later. ) 

Complex data is represented by two real (F, E, G) descriptors. Double precision complex data is 
represented by two double precision (D) descriptors. 

Nu::..'rh- Cynyr- i. " -^ Inn it 

Blanks are ignored for all purposes otter than field width count, unless they are between two digits or 
between a digit and a decimal point; in those cases they are treated as zeroes. 
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FORMATTED I/O (Continued) 

Numeric Conversion on Input (Continued) 

Any decimal point in the datum will override the position given for the decimal point in the FORMAT 

descriptor. 

All real or double precision data <F, E, G» or D conversion) may have the following forms: 

1) A string of digits optionally signed, containing an optional decimal point, e.g. » 
-33,456 67321 7890.001 

2) A string of digits as above, followed by an exponent of one of the forms: 

Signed integer constant: +44. 5+05 
E followed by signed integer constant: 673E+04 
D followed by signed integer constant: 789. ID- 01 
E followed by unsigned integer constant: 90. EOS 
D followed by unsigned integer constant: -25D02 
(D and E are equivalent forms) 

The field width w always represents the exact number of characters in the external datum on input. 
This includes decimal point, sign if any, and any leading blanks. 



15 FORMAT ( 13, F7. 2, E13. 3, G9. 1, D16. 7) 

£-22^5^65^-4. 22 201E-01 AA7654321AAAA-67567567-02 

13 F7.2 E13.3 G9. 1 D16. 7 

w=3 w=7 w=13 w=9 w=16 



Output Conversion of Integers 

The integer is right justified in the field w, and is signed if negative. If the field width is not wide 
enough to output the datum, an * is -output, followed by as many digits of the number as will fit. 



10 FORMAT (13, 14, 13, 16) 



AA4A-33*21AA-388 
v^ v^ <^y V__y 



13 14 13 16 



Output Conversion of Real and Double Precision Data 



For all numeric conversions, the datum is right justified in the output field with leading blanks, 
if needed. Negative data are signed, and the decimal point will occupy the position determined b V 
the decimal indicator d in E, F, G, and D conversions. 

If the field width w is not wide enough to output the datum, an * is output followed by an many dibits 
of the number as will fit. ' y ° 
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FORMATTED I/O (Continued) 

Output Conversion of Real and Double Precision Data (Continued) 

F conversion causes output of a real number, signed if negative. Example: 



2 FORMAT (F10.2) 

aa-2107. 99 



E conversion outputs a real number, signed if negative, as a fraction and an exponent, with the 
rightmost four character positions reserved for an exponent of the form: 



EAee 



E-ee DAee 



D-ee 



3 FORMAT (E16. 8) 
£££. 10001110EA03 



D conversion outputs a double precision number, signed if negative, with the rightmost four character 
positions reserved for an exponent of the same form as that for E conversion. (The choice of D or E 
as the fourth from the rightmost character position depends upon the internal data type. ) 



4 FORMAT (D25. 18) 

a-. 212212211000005000DA07 



In the G conversion format, d represents the number of significant digits in the external field. Out- 
put of G conversion is eitherln E format or F format depending upon the magnitude of the stored 
datum. The output is in E format, except when the magnitude of the datum, N is: 



1 * N < 10- 



Within that range F conversion is used according to the folio 

M.i "n it-.: ',■ ^i :).U""i" r,^r:--^---\:^ 

0.1 4 N < 1 F(w-4).d,4X 

1 « N < 10 F(w-4).(d-l), 4X 



•wing formula: 



10 rt'f « N K 10 d _1 

10 « N < 10 



F(w-4). 1, 4X 
F(w-4).0, 4X 
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r--f.'RM\-"Ti-::.i i a wowi-wA 

Output Conversion of Real and Double Precision Data {Continued) 
For example: 



Stored data: 90 9000 

Format: FORMAT (2G9. 3) 

External £90. 0AAAAA, 900EAQ4 

Representation: ^ -v / ^- — -^ / 

90 9000 



Radix 8 Input/Output Using the O Specifier 

The I, F, D, E, and G descriptors, when preceded by the letter O, do a radix 8 (octal) conversion of 
the same form as they normally do a radix 10 conversion. Note, however, that exponents in all cases 
for the D, E, and G specifiers will be decimal , not octal. 

For example: 



100 FORMAT (213, 2013, ELS. 7, OE13. 7) 
WRITE (2,100) II, 12, II, 12, Rl, Rl 

where: II = 20 10 , 12 = 8, Rl = . 125*10 9 , the output will be: 

A20AA8A24A10/A. 1250000EA09A. 1000000EA09 



Non-numeric Field Descriptors 

In addition to numeric field descriptors, the following descriptors are used: 

Lw - Logical 

Aw - Alphabetic 

Sw - String with maximum width w 

Tw - Tabulate to position w 

nX - Leave n blank character positions 

"string" - ASCII character string 

'string' - ASCII character string 

nH string - ASCII character string of n characters 

Z - Suppress output of the carriage return at the end 

of a record. 

!•-: '". .:•■•■ ■ !:-: • •' ' , - ev 1 ") ■ . ■ T _ > 

On input T or F as the first non-blank character in the field determines the value. T stores a 

-1 (177777) word (true) and F stores a word of all zeroes (false). On output T or F is right justified 

in field w. 
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FORMATTED I/O (Continued) 

Input and Output of Logical Data (Lw) (Continued) 



5 FORMAT (L3) 
AAT 



Poviti—ir. ■ :>:.'Scrmto.-.-.-: ,"-'■:, "^d 

The nX descriptor can be used on both input and output. On input n characters of the external record 
will be skipped. On output, n blank spaces will precede the next datum. 

The tabular descriptor Tw is used on output to cause tabulation to the character position given by w. 
If the carriage is currently positioned beyond the value of w, the descriptor is ignored. 



8 FORMAT (10X, 14, T25, 14) 



■789 



String Data (Sw) 

In Nova line computers, characters are stored two per word, and when read in, a character string is 
always terminated by a null byte (8 bits of zero). In Sw format w represents the number of characters to 
be read or written. A maximum field width of 80 characters is allowed. On input, w characters are read 
to an associated single variable' (not array) in the I/O list, with as many words used as are needed to store 
w characters, followed by a terminating null byte. If the record read does not contain w characters only 
those characters read are stored and terminated by a blank. Use of the null byte/blank may increase the 
number of words required to store a string as shown in the examples following: 



External datum: AA@A$2 J 



52 stores: 

53 stores: 

54 stores: 
S6 stores: 
S8 stores: 



AA 


in two words 


AA§ 


in two words 


A At A 


in three words 


AA@A$2 


in four words 


AAC§A$2 


in four words 



On output, if the length of the string is n characters, characters will be written as follows: 

w = n entire string is written out 

w > n entire string is written out, followed by w-n spaces. 

w < n first w characters are written out. 



*A single variable includes an array element. To input or output a .string variable to or from an array, 
specify the initial array element. 



6-11 



FORMATTED I/O (Continued) 

String Data (Continued) 



Internal string: 

S16 produces: 
S20 produces: 
Sil produces: 



^NOWAISATHEATIME 

^NOWAISATHEATIMEi 
1KGWAISATHEATIME/ 
:W3WAISATHE 



String Literals 

ASCII character literals may be read or written, using one of the string literal forms: 
n Hstring "string " 'string* 



'THISAISAA A STRING. " 
TH1SAISAAASTRING. ' 
17HTHISAISAAASTRING. 



equivalent string literal formats. 



Use of delimiting quotation marks or apostrophes eliminates the need for counting characters, required 
in the nH format. 

An apostrophe cannot appear within a string delimited by apostrophes. A quotation mark cannot appear 

within a string delimited by quotation marks. 

Alphabetic Data (Aw) 

ASCII characters can be read or written using the Aw format descriptor. On both input and output, w 
represents the field width on the external device. ~ 

On input, since the computer stores two characters per word, a limit of two characters can be read to 
a single variable. The variable should be typed INTEGER (or LOGICAL). The rightmost two char- 
acters in the field w will be stored. If w is 1, one character will be stored in the left half of a word 
and a blank stored in the right half. To store a series of characters in contiguous locations, an integer 
array variable and repetitive Aw formats can be used. 

If the next input for processing is: M@A$2 



A4 stores: 
A 2 stores: 
A3 stores: 
A6 stores: 
2A2 stores: 

3A2 stores: 

3A1 stores: 



@A 

AA 

At 

$ 2 

AA and @A 

in next two variables of the I/O list 

AA and ©A and $ 2 

hi next three variables of the I/O list 

AA and AA and @£ 

in next three variables of the I/O list 
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FORMATTED I/O ('Continued) 



Alphabetic Delta (Continued) 



Ob output, the characters are right-justified with leading blanks, if any. If the field width is less 
than two, the leftmost character will be represented with truncation to the right, 



FORMAT (A6) 

WRITE (12,6) B where B contains HOUR 

_*( representation on external device 



Note that all four characters (HOUR) could have been output using 2A2 as the format specification. 
Repetition Constant 

One field descriptor or group of field descriptors can be preceded by an integer, called a repetition 
constant. The field descriptor or group of field descriptors will be repeated the number of times 
indicated by the integer. 

All numeric field descriptors and the Aw and Lw descriptors can be preceded by repetition constants. 
The remaining non-numeric descriptors cannot have repetition constants. 

An example of repetition of individual field descriptors is: 



9 FORMAT (212, 3F11.2) 

which is the same as: 
9 FORMAT (12, 12, Fll.2, Fil,2, F11.2) 



If a group of two or more field descriptors are enclosed in parentheses, the entire group can be 
preceded by a repetition constant. For example, the specification: 



10 FORMAT (12, 3(E14.5, LI)) 

is the same as: 
10 FORMAT (12, E14.5, LI, E14.5, LI, E14.5, Li) 



Individual and group repetition constants can be combined in a given format; for example: 



11 FORMAT (G13. 2, 2(F10. 1, 314)) 

is the same as: 
11 FORMAT (G13. 2, F10. i, 14, 14, 14, FbO. 1, 14, 14, 14) 
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FORMATTED I/O (Continued) 

Multiple Record Forms 
The statement 



10 FORMAT (12, 3FI2. 1) 



can be used to transmit more than four Items of data. Each record (or output line) would consist 
of four data. For example: 



WRITE (12, 10) I, A, B, C, J, D, E, F 
10 FORMAT (12, 3F12. 1) 



might produce: 



A4AAA3456798. 6AAA4545551. 1AA33333366. 7 

A2 AAATA99999. 2AAAAAAAH2. 3AAA4>900785. 4 



The FORMAT specification may have two or more different record formats. They are separated by 
slashes. For example: 



WRITE (12, 10) I, A, B, C, J, D, E, F 
10 FORMAT (12, 3F 12. 1/14, 3F12. 1) 



would affect the same data as follows: 



•.34567 l K ■> ^ '■ ^551. 1A £33333366. 7 

" oa. ».-,:». 2 ' 112..°. ' «-v>"'-R5. 4 



If the list of the WRITE statement above has 16 variables, then the first and third lines would be 
output in the same format and the second and fourth lines would Ix; output in the same format. Record 
processing thus returns to the delimiting left parenthesis when the format descriptors are exhausted. 

If multiple-line format is desired, the second record specification is enclosed in parentheses. 
Multiple -line format is where the first line is printed in a given format while the remaining lines 
are printed in another format. This is done without returning to the first left parenthesis when 
the list has been exhausted. For example: 
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FORMATTED I/O (Continued) 
Multiple Record Forms (Continued) 



WRITE (12, 10) I, A, B, C, J, D, E, F 
10 FORMATC'RESULTS IN INCHES"/(I5, 3F12, 1)) 



would produce the following: 



RESULTS IN INCHES 

aaa£4AAA3456798. 6AAA4545551. LAA33333366. 7 
'• • 9 -- *Q9Q()9.2._: " . ■* 112. 3AAAA900785.5 



Additional slashes will cause vertical lines (records) to be skipped. For example: 



WRITE (12, 10) I, A, B, C, ], D, E, F 
10 FORMATC'RESULTS IN INCHES"/ / (15, 3F12. 1)) 

RESULTS IN INCHES 

£A££4A^£3456798. 6AAA4545551. 1AA33333366. 7 

AAAA2AAAAA99999. 2AA.AAAA A112. 3A.AAA9Q0785.4 



When parentheses are nested in a FORMAT statement, they are assigned level numbers, with the 
outermost parentheses assigned level 0. For example: 



10 FORMAT (3E10. 3, (12, 2(F12.4,F10. 3)),D20. 12) 

12 21 



If data items remain to be transmitted after the descriptors in a multiple level FORMAT statement 
have been "used", the format is repeated from the last previous parenthesis that is a level zero or 
a level 1 left parenthesis. In the FORMAT statement above, the format would be repeated beginning 
at 12, the first descriptor following a level 1 left parenthesis. 

Vertical Carriage Control 

The first character of formatted output is a vertical carriage control character. The control characters 

recognized are: 

- double space before printing 

1 _ form feed before printing 

Carriage control characters are normally placed at the beginning of unit records in the FORMAT 
specification. One of the string descriptors can be used to insert the carriage control character. 
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FORMATTED I/O (Continued) 

Vertical Caxriage Control (Continued) 



5 FORMAT (1H1, 4E15.5/("(T, F11.2, 4E15.5)) 

! t « 

term | double space 

feed single space 



i^Plt: f 1 St Chp fT eX ° f f ° rmatted out P ut is P art of a datum associated with a numeric field descriptor 
it will be interpreted as a carriage control character. ut-^cnpcor, 



15 FORMAT (12) 



Do, a double space is given before 5 is printed. If the associated datum is A 5, the normal simrle 
carriage return/line feed occurs before 5 is printed. normal single 

Tlw Z f J! ^ d T ri P tor can te used to su PP^ss carriage return on output. The Z descriptor should 
S t tco^d riPt ° r iD thG ^^^ Statement "* WiU SUPPreSS the Ca ^ e ^n ^ 



1 = 3 

J = 4 

FORMAT (IX, 16) 

WRITE (12, 3) I 

WRITE (12, 3) J 



will print: 



AAAAA3 > 
AAAAA4 > 



but 



1 = 3 
J = 4 
FORMAT (IX, 16, Z) 

WRITE (12, 3) I 
WRITE (12, 3) J 



will print 
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FORMATTED I/O (Continued) 
Vertical Carriage Control (Continued) 



£&A£A3£A££A4 



The Z descriptor should only be used with WRITE statements. 

Scale Factor 

All floating- point numeric conversions (F, E, D, G) can be preceded by a scale factor of the form: 



nP 



where: n is a signed or unsigned integer. 

\ scale factor precedes the basic field descriptor and any repetition constant. Once a scale factor 
is given for a field descriptor it remains in effect for aUF.E, G, and D conversions in the 
FORMAT statement, unless changed. For example: 



10 FORMAT (3PF9.3, 2E15. 1) 

is the same as: 
10 FORMAT (3PF9. 3, 3PE15. 1, 3PE15. 1) 



A scale factor of OP is the same as no scale factor. For example: 



11 FORMAT (0PG10. 2) 

is the same as: 
11 FORMAT (G10. 2) 



The effect of a scale factor on a datum varies with the datum, the type of conversion (F, E, D, or G), 
and the direction (input or output). 

On mput if the datum has an explicit exponent , the scale factor has no effect. This is true for all 
conversion formats: E, F, G, or D. 

On imput if the datum has no explicit exponent, the scale factor conversion formula is: 



input datum x 10**- = internal representation 
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FORMATTED I/O (Continued) 
Scale Factor (Continued) 

For example: 



External data: -25,44 345.71 

Format: 15 FORMAT (2PF10. 2, G8, 2) 

Data stored: -.2544 3.4571 

i.'L'cip- ; :iI ivv>r,-~;.'P.t it: or) 



On output using E or D conversion, the real constant portion of the stored value is multiplied by 1(£ 
and n is subtracted from the exponent portion of the stored value. This means that the value remains 
the same although formatted differently, e.g. : 



Stored data: 9000 9000 

Format: 14 FORMAT (El 3.4, 2PE 13. 4) 

External AAAA. 9000EA04AA90. 0000EA02 
Representation: 



When G conversions are in E format, they also follow the formula above. 

On output on F conversion, the stored value is multiplied by 1(£, actually altering the external 

value, e.g. : 



Stored data: 9000 9000 

Format: 16 FORMAT (F 10. 2, -4FF10.2) 

External AAA9000. 00AAAAAAA. 90 
Representation: 



The scale factor has no effect on G_ conversion within the F range. G conversion thus always transfers 
the value unchanged whether the F or E format is chosen. 

Run-Time Format Specifications 

**P^ ne ^- Can ,i refe, r ,Ce ^ aiTay COntaiM ^ a formatting specification, rather than a FORMAT 
statement. Tins allows formatting information to be read in at run-time and changed for diffc 



ferent 



The formatting array contains a format specification, including the zero-level left and right parenthese 
but not the word FORMAT. The closing right parenthesis must be followed by an exclamation^ (>) 

R?4D Z CteX ^T ^ " tte f ° rmat S ^ cmc ^ c - ^ stored in an axray by use of a formed 
READ that uses a format containing Aw or Sw descriptors. 
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FORMATTED I/O (Continued) 

Run-Time Format Specification (Continued) 



To use rim-time formatting, the user must: 

Determine how large an array will be needed for the largest incoming format specification. 

If core space is not critical, the user can estimate. 

2) Dimension the array in a DIMENSION, COMMON, or type declaration statement. 

3) Include an appropriate storage statement or statements. Most commonly, this will be a 
READ smenaent and a FORMAT statement that will read the format specifxcanon mto array 
storage using Aw or Sw descriptors. 

4) Reference the format array in the READ statement used for input of data. 

5) Supply formatting information to be read into the array at run-time. 
For example using the Aw format: 



1) 



DIMENSION FT (12) 
2 FORMAT(24A2) 

READ (11,2) (FT(I), 1= 1, 12) 

READ (11, FT) J, W, X, Y, Z, (C(I), I = 1, 7) 



Or using the Sw format: 



DIMENSION FT (12) 
2 FORMAT (S47) 

READ (11, 2) FT (1) 

READ (11, FT) J, W, X, Y, Z, (C(I), I = 1, 7) 



The information supplied at run -time might be: 



(13, 4E15.6/7F10.3)! 



The number of characters to be stored in the example is 20, including blanks, well below the 48- 
character maximum allowed in array FT. 



BINARY I/O 



Binary data can be transferred to and from an external medium using the statements: 



6-19 



BINARY I/O ^ (Continued) 



WRITE BINARY ( channel ) list 
READ BINARY (channel) list 



where: channel and list are the same as for ASCII mode 

rranMerred depends upon the internal data representation: 1 word for integer, 2 for real 4 for 
^sfeSu'" COmPlCX ' ""■' S { ° r d0UilC PreCiSi ° n C ° mpl «- TlE ^ °^r orTeft l3> ne is 

CONSOLE INPUT AND OUT PUT 

ACCEPT and TYPE Statements 

Unformatted I/O on the console frees the user from the details of FORMAT specifications while 
providing for legible documents and easy-to-use I/O statements. Peculations wnrie 

o?lcS" S ACCEFr ^ TYPE ^ USCd Wlth C ° nSOle *** and °^ respectively. The format 



where: 



ACCEPT list 



just is a last of variables and, optionally, string constants. When the ACCEPT statement 
is executed, values for the variables of the ACCEPT list are input from the canso£? Sy 
string constants given in the list of the ACCEPT statement are output at the console and can 
serve as a guide as to what input value is required. 

The format of the TYPE statement is: 



TYPE list 



WhCTe: aS I™™?* 8 f ° r WMCh V " IUeS " C K * °^ Wta tte state ™ * execnted 

ana, optionally, string constants to be output. 

Note that if channel 10 is to be reassigned via OPEN or FOPEN, either no TYPE or ACCFPT «***, 

TYPE "STARTED" 

CALL OPEN (10, "FILE",. . , ) 

S^oWe"! *"** 0Pen t0 $TT ° * tMS *""> lnSettim 0l CALL CLOSE <">■ IER) wm prevent 
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TELETYPE INPUT AND OUTPUT (Continued) 
A CCEPT and TYPE statements (Continued) 

: ' _• ' __"_ ]' 

A sample program using teletype I/O is shown below: 



BENCHMARK TEST OF DGC FORTRAN 

DIMENSION RARRAY (2000) 

COMMON RARRAY, AUTOC, SD 

ACCEPT "ARRAY SIZE=", IAS, 
1 "INITIAL RANDOM NUMBERS", RN1 

IF (IAS- 2000) 2,2,3 

TYPE "ARRAY SIZE MAX IS 2000" 

GOTO 1 

CALL RANDOM (RN1, IAS, RARRAY) 

CALL CORRELATE (IAS) 

TYPE "AUTOCORRELATION^", AUTOC, 
1" <15 > " , "STANDARD DEVIATION^", SD 

PAUSE 

GOTO 1 

END 



The teletype operation might appear as follows. Underscoring indicates computer output, (values 
not underscored are input by the programmer), and ) stands for carriage return given by the 



programmer. 



ARRAY SIZE = 500 ) 

INITIAL RANDOM NUMBER = . 93826 ) 

AUTOCORRELATION = .73152E-A1 

STANDARD DEVIATION = . 201552EAA 

PAUSE 



Rules of Teletype I/O 

The following rules apply to input: 

1) More than one value can be called for in an ACCEPT statement. The input values can be 

separated by commas or a carriage return. 

2) Output of Hollerith strings can be mixed with input of data in the ACCEPT statement, providing 
for example, a guide as to what input value is required. 

3) When Hollerith string output is Interspersed with data, a carriage return must be given at 
the teletypewriter to force the next string to be output. For example, the carriage return 
after 500 is necessary to prompt the typing of "INITIAL RANDOM NUMBER-". 

4) ACCEPT will convert integers to real or double precision if the data type of the internal 

variable requires. 
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TELETYPE INPUT AND OUTPUT (Continued) 

Rules of Teletype I/O (Continued) 

On output the TYPE statement provides the following field widths: 

® ~ integer 

16 ~ real 

" " double precision and complex 

double precision complex 

tccTl^^? K I" 80 " " Whe " ^ mXt qUWtity WiU M flt ™ the =™* "He- to either the 
: < M - t£, f T*' E Car v!' age rCtUni ' " ° UtpUt by " < 15 >"■ A fo ™ f-d ^ output J 
o^at^ ^ STeSSte m o^. the ^ Ch ™ S * ' ^^ «** *» <*> «« «- 

CvS^rS^C 6 fOT tra " Sfer " Wh0lC mayS ^ array *" WI * 



TYPE "RARRAY: < 15 > ", RARRAY 



causes the entire array, RARRAY, to be typed out. More reasonably: 



TYPE 'THE", IAS, "RANDOM NUMBERS ARE < 15 > " 
KRARRAY (I), I = 1, IAS) 



outputs only that portion of RARRAY that is filled by subroutine RANDOM. 

^^l^^^^^^ ** "»* - «"*- in parentheses and that a co mma 
DO-implied loops can be nested. 



DIMENSION A(3, 5) 



ACCEPT «A(I, J), I = 1,3),J=1,5) 
C VERIFY INPUT 

TYPE "J I VALUE < 15 > ", 

1<(J,I,A(LJ), 1 = 1,3), J = 1,5) 



^iT.crcrs^i:* 11 ^"' m ^ ~. ^^s^, „ d 
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CONTROL I/O 



Channel Access 

or 



^Sle aid r^i^Sr^TSH ^S-^^^3-,0 and 3-11, Part i„. 



Pre- assigned Channel # 

6 

8 

9 

10 

II 

12 

13 

14 

15 



Device Name 

$PLT 

$TTP 
$CDR 
$TTO 
$TTI 
$LPT 
$PTR 
SPTP 
STTR 



Device 

Incremental Plotter 
TTY punch 

Card reader 
TTY printer 

TTY keyboard 

Line printer 

Paper tape reader (ASCII input must be even parity. ) 

Paper tape punch 

TTY reader (ASCII input must be even parity. ) 



STTOl in foreground 
STTI1 in foreground 



An- of the 64 channels - 63 can be referenced in a call to FOPEN with any device or file name as 
llrgnnint. If the channel has an associated device, tins association is temporally suspended unttl 

FCLOS or RESET is called. 

End-of-File or Error Transfer of Control 

The user can regain control after an end-of-file has been encountered or an I/O error at the 
driver level (parity, record size) has been detected. 



Within a 
syntax: 



READ or WRITE statement, the return statement number is given by the following 



READ ( channel , [ format , ]ERR = nP) [list] 

WRITE ( channel , [ format , ]ERR = nj) [ list] 

READ ( channel , [ format , ]END = £2) [ list ] 

WRITE ( channel, [ format ,] END = 5.2) [ list] 

READ ( channel , [ format , ]ERR = n x , END = n 2 ) [list] 

WRITE ( channel , [ format , ]ERR = nj , END = n^ [list] 

READ ( channel , [ format , ]END = n 2 , ERR = r^) [list] 

WRITE (channel, [ format , ]END = n 2 , ERR = ni) [ list] 



where: 14 is the return statement number for an I/O error. 

ri2 is the return statement for an end-of-file. 
REWIND Statement 



REWIND channel 
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CONTROL I/O (Continued) 

REWIND Statement (Continued) 

TteREWiXD states causes the Me assorted with duunjel (0-63 1Q ) to be positioned at the initial 

f ,f;tT WL ^ St f ement is executed fa the same program as the OPEN (or WEN, ~m for rh,t 
particular cnannel, no special handling is ^eouireci for th« m a ' " r Aat 

However, if the REWIND is to be exerted fer^f !f "f associateci wl * *e channel. 

level ftan Aat contatog 4 ^i^™ ^Z^T T^ ^ * & ^ 

blank or labeled COMMON. t0 be rewound m «st be stored in 

ENDFILE Statement 



' ENDFILE channel 



The ENDFILE statement causes the file associated with channel (0-63,n) to be closed Tf ™ pt1 h rt f 
Random Access Files (FSEE K) 

vritten, the Me is positioned to the beginning of the next unread or unwritten record. 

CALL FSEEK ( channel, recordnumber ) 
where: channel is the channel number of the random file. 

recordnumber is the number of the next record to be read or written. 
An example of a call to FSEEK is: 
CALL FSEEK (JCHAN, INUM) 
1< '-' r - i! 'N v- ■l--..riv--v; NyorN tCdS.W, CI! "1 ST) 

status of a channel: snowing call to CHSAV is used to save the 

CALL CHSAV ( channel, start-wo rd) 

where: is:^r « <sr iaWe specityi " the nu ^ r of the c — - - ™* 

stertjvord_is an element of an integer array specifying the start of a three-word block 

The three-word block is used to save the channel states for restlratiol 

The call to CHRST is used to restore channel status, it's format is: 
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CONTROL I/O (Continued) 

Rereading and Rewriting Record* (CHSAV, CHRST ) (Continued) 

CALL CHRST ( channel, start-word ) 

where: ctaMis an integer variable or constant with a value between and 63 (decimal) 
specifying the number of the channel to be used, 

start-word is the first element of the three-word block in which the previously saved 
channel status is stored. 

Note, for example, that this provides the user with the ability to read a record that ^contains 
formatting information and use this information to reread the same record esmg a different 
format. 

The status on more than one channel may, of course, be saved, and the status of eve ry read 
on a given channel mav be saved using an appropriate two-dimensional integer array. This 
gnles the user a powerful means of returning to process any record within a given disk file. 
An array declared as: 

1(3, 100) 

can be used to save up to 100 blocks of channel status information. 

Both routines will cause a non-fatal error message if the channel specified is not open, and 
CTRST wm cause a non-fatal error message if an attempt is made to restore channel mformaUon 
that has not been saved. 
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CHAFFER 7 
SPECIFICATION STATEMENTS 



DEFINITION 



Specification statements are non-executable statements that provide the FORTRAN IV compiler with 
rl^°° hoot stora.e allocation and data types of simple variables and arrays to bo used m the 



information about storage 
program, 

DIMENSION STATEMENTS 

Format: 



DIMENSION a 1 (ij), a 2 (i2)»- • • » *h>Qd) 



where: each a is the name of an array. 

each i represents the subscript bounds of the array. 

?^!^^£^^2^^ ^XS-cT^C^ data- 
n^ta«ment. Dummy array argument names may appear in DIMENSION statements (nonstable 

dimensions). 

The general form of a subscript bound is: 



sbp sb 2 ». • . » sb^ 



where: each sb is an integer constant, a dummy integer variable, or a (possibly mixed) 
pair of these separated by a colon (:). 

the upper bound of the dimension of the array. 

When a subscript bound is a single integer, a lower subscript bound of 1 is implied. For example: 



DIMENSION GEORGE (3, 5, 2, 2) 



is identical to: 
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DIMENSION STATEMENT'S (Continued) 



DIMENSION GEORGE (1:3, 1:5, 1:2, 1:2) 



If the same array structure were desired with the subscripts starting at zero, the following 
statement would accomplish this: 



DIMENSION GEORGE (0:2, 0:4, 0:1, 0:1) 



Subscript bounds may give adjustable dimensions when the dimensions and the array name are 
contained within a subprogram and are dummy arguments to that subprogram. For example: 



SUBROUTINE R(A, I, J, K) 
DIMENSION A(I, J, K) 



SUBROUTINE ABC (I, J, K, A) 
DIMENSION A (I, J, K) 



END 



The second method available is to dimension the array to be essentiallv boimdWc ™- ■ 



SUBROUTINE PRINT (A) 
DIMENSION A(l) 

WRITE (10) A 

RETURN 
END 



5r££~*^™===Mt^==5:5; 



A, such as the following: 

WRITE (10) ( A ( I ), I = 1, 10) 
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DATA-TYPE STATEMENTS 
Format: 

INTEGER vp i2>. . . » v^ 

REAL v j, y 2 , . • • t Vn 

DOUBLE PRECISION v p v 2 , . . . , v n 

COMPLEX v p v 2 ,. • • , Xn 

DOUBLE PRECISION COMPLEX v p v £ , 

LOGICAL vp v 2 , • • * ' In 



, ^ r T 



where: each v is a variable name, an array name, a dimensioned array name, a function name, or 
a statement function argument name. 

A data-type statement is used to specify the type of data that can be assigned to a variable. Variables 
used for storage of double precision, complex, double precision complex, and logical values must be 
specified in the appropriate data type statement. The data type of a variable may not be changed withm 
a program unit. INTEGER and REAL type statements may be used to override implicit data typing. 

Arrays may be dimensioned in data-type statements and dummy arguments may appear in data-type 
statements: 



INTEGER XI, X2 

REAL MEAN, MEDIAN 

DOUBLE PRECISION DEL, LONG(IO) 

COMPLEX IMAG 

LOGICAL QUES, WHICH (0:9, 0:9) 



COMPILER DOUBLE PRECISION STATEMENT 

As the initial statement of a program, the statement 




forces all RE4L variables and constants to DOUBLE PRECISION and all COMPLEX to DOUBLE 
PRECISION COMPLEX. The COMPILER DOUBLE PRECISION statement overrides any succeeding 
REAL or COMPLEX statements mid forces all floating-point constants to four word precision. Single 
precision library functions having double precision counterparts will be recognized, and calls generated to 
the appropriate double precision functions. (Library function precision is not overridden for function, 
passed as arguments nor at any time in the 8K compiler. ) 

The programmer can reduce Ms object program size by using all single or all double precision var- 
iables and constants, since the single and double precision arithmetic packages are separate. Eacn 
requires about 600 words of storage. Use of the COMPILER DOUBLE PRECISION statement thus 
insures that only the double precision arithmetic package is loaded. 
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COMMON STATEMENT 



Format: 



COMMON / block, / lis^ , . . / block,, / lis^ 



where; each Mst is a list of names of variables and arrays 

each block is the name of a block of common storage that is to contain the Mst following 
A common block is a storage area shared by program omits of a FORTRAN program. Storage is 

rntft nl t0 ~" ^ ^ mayS * * COmm ° n block fa the ° rder in wMch tte variables appear in 

oUMMUo statements. 

There are two types of common storage. If a block name precedes a list of variables, all listed 

™t , °J 1 Ttf , hllt ^^ ^ PlaCCd fa a COmm ° n St ° rage area hav ^ thc block name as a label; 
thio is called labeled common. if no block name precedes the list, aU variables of the list are placed 
m an unlabeled common area; this is called blank or unlabeled common, m a OOMMON statement Wank 
common can be indicated by an empty field between two slashes (/ /). If the blank common list ' 
appears as tnc first list in the COMMON statement, the slashes are not needed. 

The size of blank common in the various program units does not have to match; blocks of labeled common 
b\ EQUIVALENCE statements as well as COMMON statements. 

A given common block may appear more than once in a COMMON statement or given promram unit. 

i^^k^Z t0 ***%*** ta that ° rder to tte &™ co ™ Hock- Arrays may be dimensioned 

in a COMMOin statement. Dummy arguments may not appear in a COMMON statement. 

^ ,lf C f MM ,° N takCS SpaCe at loaci time ' ^reas unlabeled COMMON (and stack variables and arrays) 

acre allocated at execution time and can thus use space previously occupied by the relocatable loader, * 
lo reduce object program space requirements, keep labeled COMMON to a minimum 



COMMON A, B, C, D(3,4), E 
COMMON / LB / U, V (2,3), VAR 



The two COMMON statements above are the same as the following COMMON 



statement: 



COMMON / LB / U, V(2, 3), VAR // AV.B, C,D(3,4), E 



"-■! 



COMMON STATEMENT (Continued) 



COMMON / BLK / A, B, C 
COMMON /BLK / E, F, G 



—program unit 1 

—program unit 2 

storage in BLK 



ABC 
E F G 



COMMON A, B, C (10, 10) 
DOUBLE PRECISION A, B 



COMMON P(4), D(100) 



—program unit 1 



..-program unit 2 



two double precision variables A and B: 

storage of blank common 











A U IB IB |C(1,1) 
P(l)lp(2)!P(3)iP(4)lD(l) 

! S | i 


C(2,l) 
D(2) 


... 


C(10,10) 

D(100) 


e 'Uiv\l: : nc;- st v:tmv, 


T 


Format: 









EQUIVALENCE (list!), (Iist2>. •••> ( ^W_ 

^^^ arrays • and array elements having constant 

subscripts 
An array name with no subscript is assumed to be tbe first element of the array. 
All variables named Mthin a given list of an EQUIVALENCE statement share the same storage area. 
Donunv armament names of arrays cannot appear in EQUIVALENCE statements. 

Sbace Data General's FORTRAN IV places ™*°^^Z££* "*"** ""* ^ 

other variables, no EQUIVALENCE is allowed to non-COMMON ^ ariables. 

E^valeneing storage shouM -^ 

variable is cquivalcnced with a DOUBLE ^C^ON^ ari^le^t 

with only the first storage unit of the wo- unit DOUBLE PRECISION 
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EQUIVA LE NCE STATE ME NT (Continued) 

r^s^r. s^rsr^rxr-* ° f -^ -™» ttet ~ 

™v.vnv' a fr bIC ' array ' OT amy t ' lemcnt fr ° m a K lven EQUIVALENCE list can appear In a 
COMMON statement within the program unit. Jppe-r m a 

EQU^LENCE ext^s^ IX cS^^S^ ^ "" """«> " ** em W to provide f „r 



DlfvlENSION B{6), D(4) 
COMMON D 
EQUIVALENCE (B(l), D(2)) 



Storage in Blank Common Area 



D(l) 


D(2) 

B(l) 


D{3) 
B(2) 


D(4) 
B(3) 


B(4) 


B(5) |B{6) 



EXTERNAL STATEME NT 
Format: 



Extended Common 



EXTERNAL s p £ 2 , . . . , ^ 



where: each s is the name of a function subprogram or subroutine subprogram. 
^£^ L ^r* SPCCifieS SUb ^™ S - external to the program unit ta which the 

t r P ™^ -srss^r 1 r w ta 

p^grtm.^ ° f ^ EXTERR4L fimCtUm SUbpr °^ am »W ***» in a data type statement In the calling 
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EXTERNAL STATEMENT (Continued) 



REAL ROOT 
EXTERNAL ROOT 

CALL MULT (A, B, ROOT) 



Subroutine MULT is called with REAL function ROOT as 
the last argument. 



SUBROUTINE MULT (Q, R, S) 



Q = S(Q, R) 



This .generates a call to the function 
argument S. 



passed via dummy 



COMPILER NOSTACK 



Format: 



COMPILER NOSTACK 



memory rather than on the run-time stack. It provides the following: 

1) DATA initialization of non-COMMON variables. 

2) All free variables are initialized to zero at load time. 

3) Variables within a subprogram are available upon re-entry to the subprogram for the 

second and subsequent times. 

Attributes 2 and 3, although not ANS! FORTRAN *n^^at ^££^ £ ^^ 
by m any existent FORTRAN programs IT a « S= ^ J ^ to determine 
FORTRAN compiler without the NOSiACk option ^ does not > unchanged. If so, 

if the programmer was exacting either -^^^^^^ ne cessary variables 
the program can be recoded to generate the most efficient coue n> pi % j 
in a labeled COMMON and recompiling without the NOSTACK option. 



7-7 



CHAPTER 8 
DATA INITIALIZATION 



DATA STATEMENT 



Format: 



DATA vnstj/clistT /vlist2/clist2/. • • yd^/cUst^/ 



where: 



each vlist is a Est of names of variables, arrays, and array elements with constant 



subscripts. 

each clist is a list of optionally signed constants. 

A DATA statement dotes initial values Ror variables ^ "^^^ ™ thS ~L in 
lists are paired in the statement. Constants are assigned to variables according 

the paired list. 

COMPLEX variables are initialized with two double -precision real numbers. 

t- roMPT PX and DOUBLE PRECISION COMPLEX, may be initialized with string 
Any variable, except COMPLEX and uuusLtiMi, characters per 16-bit word). For 

data. Each character of a string constant ^^^^J^^^^s, 2 REAL variables, 
example, an 8-character string constant wxll fill i^^^^^^r of consecutive words, 

string length. 

A strir* constant in a -A—nt = ~ ^ * i^-T^tEST 

izz7c2*s°ir^r* r^i^word 0£ ^ * ^^ » **«■* - 

end of a string. (See Chapter 6, Sw Field Desciptor). 

arguments may not appear in the variable list. 

• ,1*, v-,riihle list the name is assumed to stand for the first element 
IZT^ZsTZT S ^ I^Usf m tine .attor case, all remaining constants ndll be 

assigned to the sequential elements of the array. 



iAo^mrdmi to ANSI FORTRAN standard X3. 9-1966, ^^^f^^Z^^l^^ 
tho initial values assigned only if the DATA statement appears m a BLOCK DAIA surpr gr 

is not necessary in DGC FORTRAN IV. 
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DATA STATEMENT (Continued) 

of the variable list. For example ** C ° DStant iS to te assi ^ ed to variables 



DATA A, B, C, AR(1, 1), AR(2, 2), AR(3, 3)/6*1.0 / 



sr wSTii ° a : "r:r:i to the six *~ •* * ™ „, A rei ^ rom 



with a string constant. 



t> pc agrees with the type of the last variable in the list. 



DATA I, A/1, 7. 0, 382. 0, 5*3. 0,0, 0/ 



io^tr^LTt^r SeVen St ° rage l0CatfonS ™ **""«* » *e seven real const**. 

one or more paired lists of variables and constants. 



constant list. 
The contents of the DATA statement may consist of 



DATA X, Y, I, L, S, P/2*l. 1, 0, . TRUE. , 5HPRICE/ 
is equivalent to 

DATA X, Y/2*l. 1/, l/o/, L/ . TRUE. /, S, P/5HPRICE/ 



Note the commas preceding T T and c Tt, 

axe not required for DCC IortoaTiv! ^ f ° r COm P atibilit > r ^ other compilers but 

ilLOCKDAJASURPRX^ 

V r^^^^T^^^^^^Y xx - DATA sul ™ m ' Tte BL0CK 

o^D.MENS^, OATA, COMMON. m.%^Z^^^^^ E ^^- ' «*^ 

t 

BLOCK DATA 

COMMON/ELN/c, A, B/RMC/Z, Y 

DIMENSION B(4), 2(3) 

DOUBLE PRECISION Z 

COMPLEX C 

DATA B(l), B(2)/2*l. 1/c/2 , 4> 3> 769/z(1)/7> 649D5/ 
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CHAPTER 9 

FUNCTIONS AND SUBROUTINES 



FUNCTIONS 

Functions have the following characteristics: 



of the name of the function in an expression. The name 



1 They are referenced by the appearance 

is followed by any actual arguments to the function. 

2 . They return a single value for the function to the point of reference. 

3. They have a data type. 

DGC FORTRAN functions are: 

t Hnns which are single statements written and compiled as part of a program 

1. Statement functions, whictt are bm^c 
unit (internal). 

2. 

3. FORTRAN library Sanctions, which are snpplied with the compiler. 

Statement Functions 
Format: 



unit (.micxiiaj.;. 
, „n programs, which are wrttten and compiled as separate program umts Perternal). 



f(a lf a 2 , . • • »2n> - £ 



to a function. Within a program unit, statement function 



«rw*>- f is the name given by the programmer 

WhC lamimust be* unique in their first five characters. 

Each a is a dummy argument name. 
e is an expression. 
T1K erprJsaon on me rrghthand side oi the _t mnctmn ts eealoated and assggmed to the inne.en 

name on the lefthand side. 

in Chanter 4 Function names can 

-^^^ as REAL ' or ™ R * 

Applying the 1JKMN convention to the function name. 

r ames are identical to identifiers appearing in type declaration statements, the 
Where dummy argument names are identical tu 
dummy arguments will have the type declared. 

Besides the dummy arguments, the expression e can contain: 
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EM^£HONS {Continued) 
StMementFunctioM (Continued) 

1. Constants of any type, 

2. Variables stored in a COMMON area. 

3 - ^r^^z^r^ defmed st — — » roRTRAN Ilbra ,. functions , 
-s:::: m in a a ~ — * <— » *, Program mlt and cannot appear in an 

arpmments. The actual arguments ^ ^"e d » Te ™ "^ "S"™*, to replace the d um ™, ' * 
is returned to the reference point. ** state "«™ functions, e is evaluated, and the value 

'^^^^-^z^^r- ta °*- — - *- - *, 

type as the corresponding dummy argument "k^"* ma >' be m >' expression of the same 



The statement function is: 
ROOT(A,B,CH-B+SQRT(B**2-4 *A*C))/(2. *A) 

This statement function might be referenced by: 
VAL = ROOT(D(6), 122 . 6, ABS(X-Y) ) + z**3 

In the example, D(6) replaces A, 122. 6 replaces R ,h k , 

expression: replaces B > the absolute value of A-Y replaces C, and the 



<-122.6^RT(l2Z6«2^ *D(6)* ABS(X-Y) ) ) /(2 . * D(6) , 



-t^ ^men, Z"3 is added to the returned value, and the 

-1— -jCtyJC '■'''' ■ -• •■ ■ 

|™^.C^.rr^^ ~„t <— nt vunetton,, 

^^^S^T^ ££*?» FUNCTI - — - -Puns the hunetion suhprogram. The 
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FUNCTIONS (Continued) 

Function Subprograms (Continued) 

where: type is INTEGER, REAL, COMPLEX, DOUBLE PRECISION, LOGICAL, DOUBLE 
PRECISION COMPLEX, or blank. 

name is the name of the function subprogram, 

each a is a dummy argument to lie replaced by an actual argument when the function sub- 
program is referenced. The argument list may not he blank. 

The function returns a value that is of the data type in the FUNCTION statement. If no data type is 
given, the function returns an INTEGER or REAL value depending upon the beginning letter of the 
function name (IJKLMN convention). 

Each dummy argument of a function subprogram may be a variable name, an arra%.' name, or an 
external subprogram name (function or subroutine). 

The name of the function subprogram must appear on the lefthand side of an assignment statement at 
least once in the function subprogram. DGC FORTRAN IV subprogram names must be unique within 
the first 5 characters. See Appendix B for specific names reserved for other purposes. 

A value is returned for a function when a RETURN statement in the function subprogram is executed. 
The function subprogram must contain at least one RETURN statement 

Function subprograms, like subroutines, can execute abnormal returns, as described in the section 
"Abnormal Returns", page 9-9. 

Except for the FUNCTION statement itself, the name of the function subprogram cannot appear in 
any non-executable statement in the function subprogram. 

Dummy argument names cannot appear in DATA, COMMON, or EQUIVALENCE statements in the 
function subprogram. 

Through assignment of values to its arguments, the function subprogram can effectively return more 
than one value to the referencing program unit. 

The function subprogram cannot contain statements that define other program units, e. e. , it cannot 
contain another FUNCTION statement, a BLOCK DATA statement or a SUBROUTINE statement. 

An example of a function subprogram is REAL function SWITCH: 



FUNCTION SWITCH (X) 

IF(X.LE.O.) GO TO 5 

IF(X. LT. 1. ) TO TO 10 
20 SWITCH = 1. ;FIRST ASSIGNMENT TO SWITCH 

RETURN 
10 SWITCH = X 

RETURN 
5 RETURN 

END 
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FUNCTIONS (Continued) 

Arguments of Function Subprograms* 

When a function subprogram* is referenced, dummy argument names of a given structure are replaced 
by actual argument names of a similar structure as shown below: 

i. Dummy Argument: Variable Name 

Actual Arguments: Variable Name 

Array Element Name 
Any Expression 

When the actual argument is an expression, its value is passed. 

2. Dummy Argument Array Name 

Actual Arguments : Array Name 

Array Element Name 

When an array name is passed: 

dummy length ^ actual array length 
When an array element name is passed: 

dummy length ^ actual array length + 1 - the actual array<s subscript. 

3. Dummy Argument : Name that can be used as a function call. 
Actual Argument : External Function Name 

The dummy argument cannot be defined or redefined in the function subprogram. * 

4. Dummy Argument : Name that can be used as a subroutine name in a CALL statement. 
Actual Argument : External Subroutine Name 

The dummy argument cannot be defined or redefined in the function subprogram. * 

As external function or subroutine name that is used as an actual argument in the referencing program 
unit must appear in an EXTERNAL statement in the referencing program unit. 

If a function reference causes association of two dummy arguments in the function subprogram, neither 
dummy argument can be defined in the function subprogram. 

FORTRAN Library Functions 

The FORTRAN library functions are those functions supplied with the FORTRAN compiler. Library 
functions are referenced in the same way as other functions: 



X = ABS (SIN(X) ) —function references 



A list of the library functions is given on the following page. All angular quantities are in radians. 



*The same correspondence of dummy to actual arguments holds for subroutine subprograms when the words 
"subroutine subprogram" are substituted for the words "function subprogram" as indicated by the asterisks. 
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Name 


Function 


Definition 


Number of 
Arguments 


Type 
Argument 


of 
Function 


Functions 
Used For 




ATAN 

ATAN2 

DATAN 

DATAN2 

DATN2* 


arctan (arg) 

(quadrants 1 and 4) 

arctan(arg - L /arg 2 ) 

(all cpadrants) 


Arctangent 


1 

2 
1 
2 
1 


Real 

Real J 
Double 1 
Double ) 

Double ) 


Real 
Double 

Double 


Trigonometric 
Operations 




COS 
DCOS 
CCOS 
DCCOS 


cos (arg) 


Trigonometric 
Cosine 


1 


Real I 
Double 

Complex | 
DP Complex 1 


Complex 
DP Complex 




SIN 
DS1N 

CSIN 
DCSIN 


sin(arg) 


Trigonometric 
Sine 


i 


Real 

Double 

Complex 

DP Complex j 


Real 
Double 
Complex 
DP Complex 




SINH 


sinh(arg) 


Hyperbolic 
Sine 


1 


Real j 


Real 




TAN 
DTAN 


tan(arg) 


Trigonometric 
Tangent 


1 


Real j 
Double ; 


Real 
Double 




TANH 
DTANH 


tanh(arg) 


Hyperbolic 
Tangent 


1 


Real 
Double 


Real 
Double 




ABS 
1ABS 

DABS 


largj 


Absolute 
Value 


1 


Real 

Integer 

Double 


Real 

Integer 

Double 


Arithmetic 

and 
Conversion 
Operations 




AIMAG 
DAI MAG 


y where: 
arg = x + yi 


Obtain imagi- 
nary part of 
complex argu- 
ment 


1 


Complex 

DP Complex 


Real 
Double 




DINT 
AINT 
INT 
IDINT 


Sign of arg times 
largest integer 
« largi 


Truncation 


1 


Double 
Real 
Real 
Double 


Double 
Real 
Integer 
Integer 


A LOG 
DLOG 
CLOG 
DC LOG 


log e (arg) 


Natural 
Logarithm 


1 


Real 
Double 
Complex 
DP Complex 


Real 
Double 
Complex 
DP Complex 





*DATN2 is used with the 8K FORTRAN compiler in place of DATAN, because DATAN and DATAN2 are 
identical in their first five characters. DATAN and DATAN2 can be used with the 12K compiler. 
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Name 



A LOG i „ 

DLOG 10 



AMAXO 
AMAX1 

MAXO 
MAX1 
DMAX1 



AMINO 
AMIN1 
MINO 
MINI 

DMIN1 



AMOD 
MOD 

DMOD 



CABS 
DCABS 



GMPLX 
DCMPLX 



CONJG 

DCONJG 



DBLE 



DIM 
I DIM 



EXP 
DEXP 
CEXP 
DCEXP 



Function 



Definition 



loglO(arg) 



common 

Logarithm 



max(arg l5 arg2» . . . ) 



Number of 
Arguments 



min(arg 1> arg 9 ,,..) 



iSl^ mod ££l2) 



Choosing 
Smallest 
Value 



x 2 + y2 w here: 
arg = x + yi 



complex=argj+iarg2 



For: arg = x + yi 
conj = x - yi 



Remaindering* 



Modulus 



Express 2 Rea> 
Arguments in 
Complex Form 



Double = ( arg , 0) 



Obtain Conju- 
gate of Complex 
Argument 



argj -min(arg 1? arg 9 ) 



e arg 



Express Single 
Precision Argu- 
ment in Double 
Precision Form 



Positive 
Difference 



Exponential 



^2 



^2 



Type of Function 

Argument Function Used For 



Real 
Double 



Integer 

Real 

Integer 

Real 

Double 



Integer 
Real 
Integer 
Real 

Double 



Real 
Double 



Real 

Real 

Integer 

Integer 

Double 



Real 

Integer 

Double 



Real 

Real 

Integer 

Integer 

Double 



Complex 
DP Complex 



Real 
Double 



Complex 



Real 

Integer 

Double 



Real 
Double 



Complex 
DP Complex 



Complex 



DP Complex DP Complex 



Real 



Real 
Integer 



Real 

Double 

Complex 
DP Complex 



Double 



Real 
Integer 



Real 

Double 
Complex 
DP Complex 



Arithmetic 

and 
Conversion 
Operations 



*The functionJMOD J (arg!, arg 2 ) is defined as: argj - [ ar^ / arg 2 ] arg 2 
where: [ argj / arg 2 ] is the truncated value of that quotient. 
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Name 


, — — j ■ 

Function Definition 

1 I 


Number of J 
Arguments 


Type of 
Argument J Function 


Function 
Used for 


FLOAT 

DFLOAT 


1 Convert from Integer 

Float | to Real 


i 


Integer 

Integer 


Real 
Double 


Arithmetic 

and 
Conversion 
Operations 


IFIX 


_____ ___ __ _ j— . — — — — 

Convert from Real to 
Flx Integer by Truncation 


1 


Real 


Integer 


REAL 


x where: 1 Obtain Real Part of 
arg = x + yi Complex Argument 


i 


Complex 
DP Complex 


Real 
Double 


SIGN 

ISIGN 

DSIGN 


_ r 

sign of arg„*arg. 


Transfer of Sign 


2 


Real 

Integer 

Double 


Real 

Integer 

Double 


SNGL 


arg 


Obtain Most Signifi- 
cant Part of Double 
Precision Argument 


1 


Double 


Real 


SQRT 
DSQRT 
CSQRT 
DCSQRT 


(arg) 


Square Root 


1 


Real 
Double 
Complex 
DP Complex 


Real 
Double 
Complex 
DP Complex 


LAND '" 


arg j arg 2 


16 -bit AN Ding 


2 


Integer 


Integer 


Bit,/ Word 
Manipulatior 
and Testing 


10 R * 


arg t arg 2 


16 -bit ORing 


2 


Integer 


Integer 


NOT 


arg 


Logical Complement 


1 


Integer 


Integer 


IEOR 


arg, arg 2 


16 -bit Exclusive OR 


2 


Integer 


Integer 


ISHFT 


arg ,arg 2 


Shift arg by the num- 
ber of bits given in 
arg 2 » where: 

arg 2 < right shift 
argo = no shift 
arg 2 > left shift 


2 


Integer 


Integer 


ITEST 
BTEST 


arg r arg 2 


Test a Bit within the 
Word Given by arg r 
The Bit Tested Is 

15-arg 2 - The Result 

Returned Is: 

if tested bit = 
-1 if tested bit = 1 


2 


Integer 


Logical 




j __ 
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SUBROUTINES 



Subroutines, also called subroutine subprograms, are external (separately compiled). Thev return 
3et™ Z T " iDg Pr ° gram UMt ^ thTOUgb actoal -*—y «8«nent JrresJLdeie, md tLT 

auS^ the statement followfa|r the subroutfae cafl - less ^ ~ 

A subroutine is defined by the SUBROUTINE statement that begins the subroutine and has the format: 



SUBROUTINE name <a,,a„, . . . , a ) 

' — 1 9 J Tl' 



where: name is the name of the subroutine. 

each a is a dummy argument to be replaced by an actual argument when the subroutine 
is referenced. The argument list may be blank. 

rZlt^l^^T ° f " ? br ° Utilie ma y be a variaWe ™*e. array name, or an external subprogram 

dTt! Si 7 T "T } * DUmmy argUment MmeS Cam0t W™ in COMMON, EQUIVALENCE, or 

DATA statements m the subroutine subprogram. " 

The correspondence between dummy argument names of subroutines and actual arguments passed 
to the subroutine when it is referenced is the same as that given for function subprograms (page 9-4). 

SSS^ ODly aPPCar ln the SUBR0UTINE State ~ immediately following 
the word SUBROUTINE. Subprogram names must be uniquely distinguishable by their first five 
characters. See Appendix B for names reserved for other purposes. 

Through assignment of values to its arguments, the subroutine can effectively return values to the 
referencing program unit. 

The subroutine must contain at least one RETURN statement. Return is made to the referencing 
program unit when a RETURN statement is executed. 

^o^Ttroii^ Tf aln Statei ! 1 T entS that deflne °* er Program units, i.e., it cannot contain 
another SUBROUTINE statement, a BLOCK DATA statement, or a FUNCTION statement. 

An example of a subroutine subprogram is: 



SUBROUTINE REV(ARRAY, II, 12) 

DIMENSION ARRAY (100) 

112 = 11 + 12 

MID = 112/2 

DO 50 I = II, MID 

J = 112 -I 
C USE TEMPORARY TO REVERSE 

C ELEMENTS OF ARRAY 

TEMP = A(I) 

A(I) = A (J) 

A(J) = TEMP 
50 CONTINUE 

RETURN 

END 
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SUBROUTINES (Continued) 

A subroutine subprogram Is referenced by a CALL statement. (See Chapter 5. ) If the SUBROUTINE 
statement contains dummy arguments, the CALL statement must contain actual arguments that 
replace the dummy arguments. 

When the subroutine has been executed, normal return is made to the statement in the calling program 
unit immediately following the CALL statement. For example, subroutine subprogram RkV might lie 
called from another program unit as shown. 



DIMENSION A(100) 



CALL REV (A, Kl, K2) 



ABNORMAL RETURNS 

Normally, return from a subroutine is to the statement immediately following the CALL statement, 
and return from a function is to the point of function reference. 

It is possible to return to some other statement in the calling program. To do so, the called function 
or subroutine must contain a dummy integer argument that is used as a variable in a RETURN statement. 



SUBROUTINE SUB (DUM, I, Rl, Q, K) 
INTEGER Q 



RETURN Q 



When the subroutine SUB is referenced, the calling program passes a statement label to replace the 
dummy integer argument. The statement label must be preceded by a dollar sign ($). 



CALL SUB (A, Kl, K2, $25, K3) 



25 



If an abnormal RETURN statement in SUB is executed referencing the fourth dummy argument, return 
will be made to the statement labeled 25 in the calling program. 
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ABNORMAL RETURNS (Continued) 

Abnormal returns from functions are made in the same way. Rather than returning to the point of the 
reference, the return will be made to a statement, whose label is passed as an argument replacing 
the integer variable in the RETURN statement of the function being referenced, 

DGC FORTRAN IV LIBRARY 



Certain functions and subroutines supplied "with the FORTRAN IV library are described in brief 
in this manual. Functions are described on pages 9-5 to 9-7; Chapter 6 contains non-real time 
I/O calls; and PART II describes calls that provide the real time interface to RDOS. In addition 
the next section of this chapter describes three bit manipulation routines. 

However, the functions and subroutines described in this manual are limited to those that can most 
commonly be used by programmers as well as by the system. For a full description of the FORTRAN IV 
library, see the FORTRAN IV Run Time Library User's Manual, 093-000068. 

BIT/WORD MANIPULATION 

Calls to run time routines permit bits of an integer variable to be accessed to change the setting or 
for testing. 

Clear a Bit (ICLR, BCLR) 

A single bit in a word can be set to zero by executing a call to 1CLR or to BCLR. The format of the 
call is: 



CALL ICLR ( word , position) 



CALL BCLR (word , position ) 



where: word is an integer variable, one of whose bits Is to be cleared. 

position is an integer constant or variable whose value specifies the bit position in the 
word to be set to zero: 



Least significant bit 

15 iMost significant bit 
Example: 



15 



CALL ICLR (IX, 10) BIT 10 of IX will be cleared. 



Set a Bit (ISET, BSET) 

A single bit in a word can be set to one by executing a call to ISET or to BSET. The format of the 
call is 



CALL ISET ( word , position ) 



CALL BSET (word , position ) 
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BIT/WORD MANIPULATION (Continued) 
Set a Bit (ISET, BSET) (Continued) 



where 



: word is an integer variable, one of whose bits is to be set to one. 
^sitioB is an integer variable or constat whose value specifies the bit position in the 



word to be set to one: 
Least significant bit 



15. 



15 Most significant bit 



Example: 



CALL ISET (MON, 0) BIT of MON will be set 



Test a Bit (ITEST, BTEST) 



A single bit in a word can be te 

are referenced by the following formats 



sted, using the integer function ITEST or BTEST. ITEST and BTEST 



ITEST (word , position ) 



BTEST ( word , position ) 



where: word is a logical variable, one of whose bits is to te tested. 

position is an integer constant or variable whose value specifies the bit position to be 
tested. The bit tested is I5 g - position. 

The iogical value returned by ITEST (BTEST^ a -1 (true. If the tested bit is one and zero if the 

tested bit is zero (false). 
Example: 



IF (ITEST (I, J ) ) GO TO 10 
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MI/WORDMAKIPULATIOX (Continued) 

Shift a Word (ISHFT) 

£^£r^tr t : WtS lrft " right UStoS ** ^ " BHFT - *«FT ,s 



ISHFT (word, bite ) I 

where: word is an integer variable that is to be shifted. 

a negative value represents a right shift. 

a positive value represents a left shift. 
Example: 



ISHFT (J, -5 ) shift contents of J 5 bits to the right. 
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INDEX - PART I 



A (assembly source code line) 1-2 

A (in format conversion)) 6-10, 6-12 

abnormal return 5-4 

ABS library function 9-5 

ACCEPT statement 

description of 2-5 
strings in 2-5 
input /output of 6-20 
addition 3-1, 3-2 

adjustable dimensions 2-6, 7-1 

AIMAG library function 9-5 

AINT library function 9-5 

A LOG library function 9-5 

ALOG10 library function 9-6 

AMAXO library function 9-6 

AMAX1 library function 9-6 

AMINO library function 9-6 

AMIN1 library function 9-6 

AMOD library function 9-6 

angle brackets 2-6 

.AND. 3-4 

apostrophes 2-5 

argument 

correspondence to dummy 9-4 

external subprogram 7-5 

of function Chapter 9 

of subroutine Chapter 9 
arithmetic data 

assignment 4-1 

constant 2-1 

conversion Chapters 2, 3, 4 

expression 3-1 

IF statement 5-3 

I/O conversion Chapter 6 

operators 3-1 

mixed data types 3-2 

representation Chapter 2, Append, 

storage Chapter 2, Appendix E 

variable 2-1 
arithmetic statement function 9-1 



arrays 



assigning values to 2-8 
adjustable dimensions of 2-6, 7-1 



arrays (Continued) 

dimensions 2-6, 7-1 
boundless 7-2 
element of 2-6 
equivalencing Chapter 7 
format specification in Chapter 6 
Input/output of 6-1,6-2 
not declared in COMMON 1-1 
variable size of 7-2 
ASCII characters 1-1 
assembly source code 1-2 
ASSIGN statement 5-2 
assigned GOTO statement 5-2 
assignment 

statements Chapter 4 
definition of 4-1 
illegal versions of 4-1 
rules for using 4-1, 4-2 
of arithmetic data 4-1 
of values to arrays 2-8 
of logical data 4-1 
asterisk 1-3, 3-1, 3-2, 3-4, 6-8 
A TAN library function 9-5 
ATAN2 library function 9-5 

basic field descriptor Chapter 6 

BCLR routine 9-10, 9-11 

binary I/O 6-1, 6-19 

bit manipulation 

clear bit. and set bit 9 -10 
logical operations 3-5, 9-7 
test bit 9-7, 9-11 

blank 

common 7-4 
descriptor Chapter 6 
in input conversion Chapter 6 
E as space 

in GOTO 5-1 

in string constant 2-5 

in variable 2-1 

as delimiter 1-3 

block data 

statement 8 *2 
subprogram 1-1, o-z 
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boundless arrays 7-2 
BSET 9-10, 9-11 
BTEST routine 9-7, 9-11 



C (comment line) 1-1 

CABS library function 9-6 
CALL 

strings in 2-5 
statement 5-3 
to function Chapter 9 
to run time routines (see PART II) 
to subroutine Chapters 5, 9 
carriage 

control tabulation 1-1, 6-10, 6-11 
use of slashes in 6-7, 6-14 
vertical spacing codes 6-15 
Z suppressor of 6-10, 6-16 
return 1-2, 2-4, 6-10 
CCOS library function 9-5 
CEXP library function 9-6 
CHANTASK statement 1-2 
character positions 1-1, 1-2 
character set 1-3, 1-1 
character string 
constant 2-4 
data initialization to 8-1 
I/O conversion Chapter 6 
storage 2-6, App. E 
CHSAV routine 6-24 
CHRST routine 6-24 
CLOG library function 9-5 
CMPLX library function 9-6 
Comma 6-7 
comment line 

following semicolon 1-2 
indicated by C 1-1 
common 

blank 7-4 

effect on reentrant program 1-1 

effect when equivalencing Chap. 7 

extended 7-6 

labeled 7-4 

statement 1-2, 2-6, 7-3 

storage 1-1 



COMPILER DOUBLE PRECISION 1-2 7-3 
COMPILER XOSTACK 1-2, 7-7 
COMPLEX statement 1-2, 2-3 
complex constant 2-2 
complex 

data 2-4 

in unformatted I/O 6-4 
computed GOTO statement 5-1 
CONJG function 9-6 
conjunction (logical) 3-4 
constant 

complex 2-2 
definition 2-1 
double precision 2-3 
double precision complex 2-4 
Hollerity or string 1-3, 2-5 
integer 2-3, 2-1 
logical 2-2, 2-5 
real 2-3 

repetition 6-6, 6-13 
continuation lines 1-2 
CONTINUE statement 5-4 
control statements 

arithmetic IF 5-3 
assigned GOTO 5-2 
ASSIGN statement 5-2 
CALL statement 5-3 
computed GOTO 5-1 
CONTINUE statement 5-4 
definition 5-1 
DO statement 5-5 
logical IF 5-3 
PAUSE statement 5-5 
RETURN statement 5-4 
STOP statement 5-5 
unconditional GOTO 5-1 
conversion of data Chapters 3, 4 
conversion, I/O Chapter 6 
COS library function 9-5 
CSIN library function 9-5 
CSQRT library function 9-7 



D (double precision) 2-3 
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D in format conversion 6-7 f 
DABS library .function 9-5 
DAIMAG library function 9-5 

data 

alphabetic 6-1 ff 

character string 2-4 

complex 2-4 

conversion Chapters 3,4 

double precision 2-3 

double precision complex 2-4 

formatting of Chapter 6 

Hollerith 2-4 

initialization 8-1 f 

integer 2-1 

octal 2-2, 2-6 

precision of Chapters 2, 3, 4 

real 2-2 
statement 

description 1-2, 2-7, 8-1 

strings in 2-5 

-type 

statements Chapter 7 
specification of 7-3 ff 
description of 7-3 ff 
evaluating mixed 3-2 
of parameters 2-1 
typing of 2-1, 7-1 
DA TAN library function 9-5 
DATAN 2 library function 9-5 
DATN2 library function 9-5 
DBLE library function 9-6 
DCABS library function 9-6 
DCCOS library function 9-5 
DCEXP library function 9-6 
DC LOG library function 9-5 
DCMPLX library function 9-6 
DCONJG library function 9-6 
DCOS library function 9-5 
DCSIN library function 9-5 
DCSQRT library function 9-7 



declaration statements 
COMMON 1-2 
COMPLEX 1-2 
DIMENSION 1-2 
DOUBLE PRECISION 1-2 
EQUIVALENCE 1-2 
EXTERNAL 1-2 
INTEGER 1-2 
LOGICAL 1-2 
REAL 1-2 
define 

initial values for variables 8-1 
initial values for array elements 
descriptor, field Chapter 6 
DEXP library function 9-6 
DFLOAT library function 9-7 
diagnostics Appendix B 
dimension 

adjustable 2-6, 7-1 
of an array 2-6, 7-1 
statement 1-2, 2-6 
DIM library function 9-6 
DINT library function 9-5 
disjunction (logical 3-4 
division 3-1, 3-2, 3-3 
DLOG library function 9-5 
DLOGIO library function 9-6 
DMAXI library function 9-6 
DM1NT library function 9-6 
DMOD library function 9-6 

DO 

-implied list 6-1 

statement 5 -5 
nesting of 5-6 
restrictions of 5-6 
extended range of 5-7 
double precision . 
constant 2-3 
data 2-4 

in unformatted I/O 6-4 
output conversion 6-8 
statement 1-2, 2-3 
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DOUBLE PRECISION COMPLEX 
statement (data) 2-4 
in unformatted I/O 6-4 
DREAL library function 9-7 
DSIGN library function 9-7 
DSIN library function 9-5 
DSQRT library function 9-7 
DTAN library function 9-5 
dummy argument Chapter 9 



E format conversion 6-7 
E (real data) 2-3 
element of an array 2-6 
end 

of line 1-1 
of program 1-1 
of subprogram 5-2 
of record indicators 6-5 
END line 1-1 
END FILE statement 6-24 
.EQ. 3-3 
equals sign 1-3 

EQUIVALENCE statement 1-2,2-7,7-5 
equivalencing of arrarys Chapter 7 
error messages Appendix B 
evaluating 

expressions Chapter 3 
mixed data types 3-2 
exclamation point Chapter 6 
executable statements 1-2 
execution 

of program Appendix D 
resume after PAUSE 5-5 
execution - time formatting Chapter 6 
EXP library function 9-6 
explicit data typing 7-1 
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expression 

arithmetic 3-1 
■-An nit ion ;]-} 

evaluation Chapter 3 

in non- executable statement 2=7 

in executable statement 2-7 

logical 3-4 

mixed mode 3-2 

operators for 3-1 ff 

relational 3-4 
extended common 7-6 
extended DO range 5-7 
extending core 1-1 
EXTERNAL statement 1-2, 7-6 

F format conversion 6-7 
factor, scale 6-17 
.FALSE. 2-5, 3-4 
field descriptors 6-6 ff 
field separators 6-6 ff 
filename 6-24 
fixed memory locations 7-7 
fixed -point notation 2-2 
FLOAT library function 9-7 
floating-point notation 2-2 
forcing values 7-3 
format 

I/O Chapter 6 
strings in 2-5 
strings constant 2-6 
statement 1-2, 6-6 
specification 

purpose of 6-6 
during run time 6-18 
form feed 1-2, 6-15 
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FORTRAN 

assembler interface Appendix 

character set 1-3, 1-1 

compilation Appendix D 

execution Appendix D 

I/O Chapter 6 

library functions 9-4 

operators Chapter 3 

programs 1-1 

program units 1-1 

statements 1-2 
FSEEK routine 6-24 
full-word logical operations 3-3 
function 

subprogram 1-1, 1-2, Chapter 9 

statement 1-2, 9-2 

names 9-1 



G format conversion 

.GE. 3-2, 3-3 

GOTO 

unconditional 5-1 
computed 5-1 
assigned 5-2 

. GT, 3-2, 3-3 



6-7 



9-7 
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IDINT library function 9-5 
IEOR library function 9-7 
IF arithmetic 5-3 
IF logical 5-3 
IFIX library function 
IJKLMN convention 2 
initialization, of data 
input /output 

types of 6-1 

statements Chapter 6 

programmed 6-1 

unformatted 6-4 ff 

formatted 6-6 

binary 6-1, 6-19 
integer 

conversion Chapters 3, 4 

definition 2-1 

implied typing 2-1 

I/O conversion 6-6 

statement 1-2, 7-1 

storage 2-3 

field for (unformatted I/O) 6-4 
INT library function 9-5 
IOR library function 9-7 
ISET routine 9-10 ' 
ISHFT library function 9-7, 9-12 
ITEST library function 9-7, 9-11 



H format conversion 6-10 
hierarchy of operations 3-3 
Hollerith string 

constants 1-3, 2-5 
in relational expressions 3-4 
in logical expressions 3-4 
in FORMAT specification 6-6 

I format conversion 6-7 
IABS library function 9-5 
IAND library function 9 -7 
ICLR routine 9-10 
IDIM library function 9-6 



K (following octal integer) 2-2 



L format conversion 6-10 

label 

character positions for 1-2 
leading zeroes in 1-2 

labels 1-2, 5-1, Chapters 6, 9 

labeled common 7-4 

. LE. 3-3 

leading zeroes in labels 1-2 
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library functions 

ABS 9-5 

AIMAG 9-5 

AiNT 9-5 

ALOG 9-5 
ALOCL) i-5 

AMAXO 9-6 

AMAX1 9-6 

AMINO 9-6 

AMIN1 9-6 

AMOD 9-6 

ATAN 9-5 

ATAN2 9-5 

BTEST 9-7 

CABS 9-6 

CCOS 9-5 

CEXP 9-6 

CLOG 9-5 

CMPLX 9-6 

CONJG 9-6 

COS 9-5 

CSIN 9-5 

CSQRT 9-7 

DABS 9-5 

DA IMA G 9-5 

DATAN 9-5 

DATAN2 9-5 

DATN2 9-5 

DBLE 9-6 

DCABS 9-6 

DCCOS 9-5 

DCEXP 9-6 

DC LOG 9-5 

DCMPLX 9-6 

DCONJG 9-6 

DCOS 9-5 

DCS IN 9-5 

DCSQRT 9-7 

DEXP 9-6 

DFLOAT 9-7 

DINT 9-5 

DLOG 9-5 

DLOG10 9-6 



library functions (Continued) 

DMAX1 9-6 

DIMM 9-6 

DMGD 9-6 

DREAL 9-7 

DSIGN 9-7 

DSIN 9-5 

DSQRT 9-7 

DTAN 9-5 

EXP 9-6 

FLOAT 9-7 

IABS 9-5 

IAND 9-7 

IDEM 9-6 

IDINT 9-5 

IEOR 9-7 

IFIX 9-7 

INT 9-5 

IOR 9-7 

ISHFT 9-7 

ISIGN 9-7 

ITEST 9-7 

MAXO 9-6 

MAX1 9-6 

MINO 9-6 

MINI 9-6 

MOD 9-6 

REAL 9-7 

SIGN 9-7 

SIN 9-5 

SINH 9-5 

SNGL 9-7 

SQRT 9-7 

TAN 9-5 

TANH 9-5 
line 

comment 1-1. 1-2 
continuation of 1-2 
end of 1-1 

label within a 1-2 
of assembly code 1-2 
list, definition 6-1 
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6-10 



7-1 
5-3 



literal declaration 2-1, 6-12 

logical 

assignment of 4-1 

conjunction 3-4 

data type 2-2, 2-5 

definition 2-2, 2-5 

disjunction 3-4 

expression 3-4 

field for 6-4 

input /output of 

negation 3-4 

operators 3-4 

statement 1-2, 
logical IF statement 
loop 

DO 5-5 

DO -implied 6-1 
lower bound 7-1 
. LT. 3-3 



main program unit 1-1 

mathematical data types 

INTEGER 2-2 

REAL 2-2 

DOUBLE PRECISION 2-2 

COMPLEX 2-2 

DOUBLE PRECISION COMPLEX 2-2 
MAXO library function 9-6 
MAX1 library function 
MINO library function 
MINI library function 
mixed data types 3-2 
mixed made expression Chapters 3, 4 
MOD library function 9-6 
multiple record format 6-14 
multiplication 3-1 



9-6 
9-6 
9-6 



.NE. 3-3 

negation (logical) 3-4 
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CHAPTER i 
INTRODUCTORY CONCEPTS OF THE OPERATING SYSTEMS 



FORTRAN IV can be used in conjunction with DGC's three operating systems, namely, the Real Time 
Disk Operating System, the Real Time Operating System, and the Stand-alone Operating System. 
FORTRAN IV can also be executed in stand-alone mode (without the use of an operating system). 

The Real Time Disk Operating System (RDOS) is a disk-oriented, modular, multitasking systenm It 
is possible to segment FORTRAN IV programs under RDOS into overlays which are stored on dis* and 
brought Into a fixed area of core as needed at execution time. Any FORTRAN IV program under RDOS 
can suspend its own execution and either invoke another distinct program (called program chaining) 
or call for a new section of itself (called program swapping). 

Two programs may be executed concurrently -under RDOS, a foreground and a background program. 
The two programs may have equal priority or the foreground program may have the higher priority 
of the two. Foreground and background programs are hardware protected from e^ other and from 
the operating system when the system is a NOVA* 840 computer with a Memory Management and 
Protection Uiut'(MMFU). This hardware protection enables a debugged program to be run in the 
foreground, while a lower priority program is constructed and debugged in the background. 

The other DGC operating systems (SOS and RTOS) provide the user with compatible subsets of RDOS. 
The Stand-alone Operating System provides a single program runtime facility in a non-disk environment, 
while RTOS provides a multitasking, memory-only real time system. All file structures, task concepts, 
and other features described for RDOS FORTRAN IV also apply to an RTOS system unless otherwise 
specified in this manual. 

DISCUSSION OF TERMS 



Multitasking 

Multitasking provides an advanced method of having multiple execution paths through a user program. 
Assume a program A to be operating perhaps putting together statistical information. Somewhere along 
the line it determines that it needs another routine (or task) to be called in to assist it in performing some 
calculation. The second task may then be activated, while the first task may or may not cease rts 

operation. In fact, both tasks could be operating concurrently, each contending for the system s 
resources (CPU time, I/O time, core storage, etc.). 

Multitasking allows a user to coordinate many independent tasks by having each task share subroutines, 
the access of data buffers, and disk files. Programmable control of tasks Is made possible by calls 
which activate, make ready, and suspend a task, and those that examine the status of tasks on a group 
or individual basis. Other calls to the task monitor allow independently executing tasks to be 
synchronized or to exchange information. 

System resources in the form of CPU time and I/O peripherals are allocated to each task under a user- 
specified task priority structure. The user can also define task subprograms in assembly language 
for separate incorporation as task units. 

* NOVA, SUPERNOVA, and NOVADISC are registered trademarks of Data General Corporation. 
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DISCUSSION OF TERMS (Continual) 
Swapping and Chaining 

An executing program may invoke another program that exists as a save file on disk, The invoking 
program 1S swapped out to disk and the invoked program executes. When the invoked program ter- 
minates execution, the calling program is restored to core. Up to five levels of pronrairTswaos 
are permitted. ° 

In chaining, the invoking program is not saved, it simply executes until it invokes another program 
tnat exists as a save file on disk. There is no limit to the number of programs that may be chained. 

Overlays 

Another method of overwriting resident core images is the overlay facility. Unlike program swap- 
ping or chaining, the overlay facility associates disk files that are the user overlays with a root 
program that remains core resident. Overlays overwrite each other but do not overwrite the root 
program. Both the overlay facility and swapping and chaining are described in detail in Chapter 5. 

System Directory 

Each partition or subdirectory has a directory to the files of the partition or subdirectory; the 
directory is named SYS. DR. The information within every SYS. DR includes file names, 'the length 
nn bytes of the files, and the file's attributes and characteristics. " 

The structure of SYS. DR for both system file directories and subdirectories is identical That is 
SYS. DR is a randomly organized file, and die first word in each block of die file is the number of' 
foes that are listed in this block of SYS. DR. Following this word is a series of 22 octal word 
entries, called user file descriptions or UPDs, which describe each file. Toe contents of thw UFD 
differ somewhat for link entries; links are described in Chapter 3. 

.-_. v "" "■___ 

There are three types of file organization; sequential, random, and contiguous. Each type of file consists 
Ox 2o6-word blocks. The organization of these files is described in detail in the RDOS Manual, 093-000075 
and is only briefly discussed here. * 

Each block of a sequentially organized file has a 255 -word data area followed by a word containing a 
pointer to the next block. Tie pointer is to tide logical block address assigned by die svstem and derived 
from the physical sector/track address of the disk. Logical addresses need not be accessed seouentially 
a sequentially organized file might have die last word of block 7 pointing to block 14 which in mm points 
to blocK 4, etc. Sequential I/O transfers are buffered, i. e. , only whole blocks are transferred and each 
one is read into the buffer first. 

Randomly organized files utilize all 256-words of the block for data. The blocks are accessed bv a 
We index which is created when the random file is created. The file index is a sequentially organ- 
ized file of pointers to the date blocks of die random file. Each random block is assigned a sequential 
positive integer by its position within the file. The first block is block 0. In processing randomly 
organized tiles, two disk accesses are generally all that is required for reading and writing of each 
clock: one to access the file index and one for the block of data itself. If the index is maiii-memorv 
resident (having previously been read into a system buffer), only one access is necessary. 

Contiguously organized files use all 256 words of a block for data. These are files whose blocks man be ac- 
cessed randomly hut without need for a random file index. Contiguous files are composed of f^r^ 
of d 1S k olocks, located at an unbroken series of disk block addresses. 'The files cannot be expanded nor 
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FUe Structures (Continued) 

and the relative block number within the file. 

there is no need to read a file index. 
Dual Programming 

Oual programme also referred » »J^^ s nrSt^^SyCS^^^ 

to execute concurrently, sharmg system resource, ■ ^ ° foreground program 

r a ffil"STire r^C- ;^r« ^^u. aurd ground programs may 
have equal priority in competing for system resources. 

0,e division between foe foreground and to*^'^^^.^^ 
-otiS Sr^r^^T^^^-^ «^ is moluded with dm .ova 
840 system. 

• i a nr, \,mpf there are two modes for addressing memory. 'The modes 

wWl only *e lower 31K °™^»^ S rSS^iS ™ words each. 
S™' . P ^^d C re^u«r^™ m ts aware el its portion el address spare only and foerefore. 
cannot reference locations outside its own logical address space. 

User Stams Table (UST1 

UST. 

FORTRAN IV ERROR FLAGS 

Mam. or dm ran time calls contain as pact of their format an integer marrable earner that returns an 

emor cedm rHm pcms.rde error cedes renamed m the Integer variable error are. 

Indeterminate error 

1 Call successfully completed 

2 Svstem action in progress 
>3 RDOS system error code + 3 

Frmr -ode will be returned only as a result of a bug within the user program. Error code 1 

^t^le .^cmed- ^ra«L» was snceessMiy ^^^ ^Z f SSfe^™' 

condition. Error code 2 indicates system activity in progress, this is artaall, crn^ 

placed within error during the time it takes to complete the operation. . Er ror C °^ j; l ' ^ 

Sigher are the only codes retorned at Z^^^™^^ ^^r 4 

one of the RDOS system error codes, e.g. , KJRltCnO, error o tb txu 

is RDOS error 1, etc. A list of all error codes can be found in Appendix A. 
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DIRECTGR1E5 ! J1^ 



partition. 



primary partition 



One or more portions of tdds primary partition m a y be designate, as secondary partitions (ereated 

by a call to CPART). 



secondary 
partition 



^ 



) primary partition 



secondary 
partition 




partition's file space on a variable basis. 

Each partition and subdirectory has a file directory calied SYS. DR vdtich contains the toilowing 

types of information: 

partition, and a list of the names of each secondary partition. 

—orl .^^ 

partition. 

Each subdirectory -then a partition has its own SYS. DR containing a last of ali files of 
that subdirectory. 
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3 DISf 



Level 
Level 1 
Level 2 



/rimary partition 
\ 
^secondary partition 

subclireclo^- subdirectSo 



subdirectories 



'secondary partition, 
r >2 subdirectory suM; 



- irectory 

" dl ^^^ 

used disk fi,e t „ be ,in ke d to bv user,™ e slnOdhRF * ™ E " S " ,gIe ">™ ° f a =-■»* 

entries may point t„ other link entries o a, rirT^"" " " 0ther Potions. Link 
is finallv linked to i s ceiled the nebulises, en ery. UQ ° n °' " P *> '" deClraal - ™* ™"T which 

Secondary Partition 



File Directory 



Secondary Partition 
File Directory 1 



LINK A 



Subdirectory 



LINK B 



Primary Partition 
File Director}' 



LINK C 



Subdirectory 



L 



ASM. SV 



ASM. SV 



LINK D 






BOOT 

CDIR 

CPART 

DIR 

GDIR 

LN'IT 

MDIR 

RLSE 



perform a disk bootstrap 
create a subdirectory 
create a secondary partition 

change the current directory 

get the current default directory name 

initialize a directory or magnetic tape device 

yet the name of the master device 

release a directory or magnetic tape device 
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Change the Current Directory (DIR) 

Dmk files are accessed bv file name, Under RDOS a disk file name may reside in one of three kinds of di 
r^oSs til primary partition's directory, the secondary partition's directory, or a subdirectory s 
"Jrector" Thcmer^ partition is a fixed or moving head disk device. Secondary partitions and 

subdirectories result from partitioning of disk space of a primary partition among users. 

When RDOS is bootstrapped (using HIPBOOT or the BOOT command as described in the RDOS J Manual 
093-000075), a current directory is established. Files in the current directory may « ao*s^ 
file name. e.g. , if the current directory is DP0, then FILEY in DP0 is accessed by the name FiLE^ . 

However, files in directories other than the current directory can be accessed crJy by prefixing the 
file name with the specifiers of the directories in which they are found, e.g. , 

DP1:PART2:FIX 

where: DPI is the primary partition and PART2 is the secondary partition containing the name of file 
FIX. 

The user can change the current directory with a cell to DIR. Thus if the current directory is changed 

f^ono ^DPO to pl RT fof DPI, the user may access FIX without directory T<f*"V££*£^ 

file name. A call to DIR also initializes the directory if it was not previously initialized. The call to 
DIR has the format: ' 

CALL DIR ( directoryname , error ) 
where: directoryname is the name of a file or device that is to become the new current directory, 
earror is an integer variable which will return one of the error codes upon completion of 
the call. 

Examples of calls to DIR follow: 

CALL DIR ("DPO", IER) 

CALL DIR (*SPART*, IER) 

Initialize a Directory (INIT) 

Before any file can be referenced, its directory must be initialized. Initialization opens a directory, 

specifying Its name to the system for future access. Initialization can be either full or partial 

Full initialization is used to introduce new disk packs or cartridges, magnetic tapes, or cassettes 
to me sv^tem; or it can be used to erase all existing files releasing their space from the partitions 
and subdirectories. Partial initialization is used to reintroduce to the system an entire unit with _ 
valuable file contents (i.e. , a primary partition) or to reintroduce a portion of the primary partition, 
namely, a secondary partition or subdirectory. 

Although more than one directory can be initialized at any one moment, there can he only one 
current default directory. The current default directory is the directory to which all tile ref - 
erences are directed in the absence of additional directory specifier information. 

A directory can be initialized by executing a call to INIT. The call has the format: 

CALL INIT (direpcto ryname, type , error ) 

where: directoryname is the name of die directory file or the directory device to be Initialized. 
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JnJgajigea_Dir ec to ry (INI T) (Continued) 

WlZ^ C ° nStant ° r VariaWe WhOSS Va,UC ^"nines the type of initialization 



to be performed: 



-J full initialization 
partial initialization 



-T^l OT inCCger VariaWe wMch **» re ^ one of the error codes upon completion of 

CALL IMT ("DPI", 0, IER) 
CALL INIT ("PARTITION", 0, IER) 
CALL iNITCMTO", -i, IER) 

— — — L__'_L_" ; -' ; -i 

The user can terminate access to files on a Riven directory by releasing the directory (All files 

t^ 7 raust beforc * c directory can be reieased - > ^ - u <° r«e hl:",;= 

CALL RLSE ( directoryname, error) 
where: dh^ctorjoiame is the name of the directory or directory device to be released. 

IfllL M intCger VaXiaWe WhlCh WU1 retUr " ° ne ° f * e err ° r C ° des ' J P» completion of 

5 ele T ing a ^^f °u y 1S thG rCVerSe ° f mitializin f? ^. After a directory is released files in that 
f caTto^Et: G aCCeSSed aftCr inidaliZing (CALL LNTI > thG di --°^ ^ ^tLple 1 

CALL RLSE "MT1", IER) 
In die case of magnetic tape or cassette units, die RLSE call will rewind these tapes. 

Get die Curre nt Default Directory/Device Name (GDIR) 

AecilU * C rOUtinC GDIR remTnS * C namC ° f * e CUrrent default directory/devico. TLe format of 

CALL GDIR ( array , error ) 

WhCrc '' iyfe" ariay Zsf ^ "^ "'A* "'" ^ *° namc ot "« -™t «** directory/ 

device, arrav must be large enough to accommodate 13 bytes. 

ISli! " intCger VarlaWC WMCh WiH retUm ° nC ° f ** error codes "Pon completion of 



G et the Current Default Directory/Device Name (GDIR) (Continued) 

An example of a call to GDIR is: 

CALL GDIR (IAR, IER) 

Create a Subdirectory (GDIR) 

A subdirectory is a subset of the parent partition's file space. Unlike secondary partitions, 
subdirectories have no defined amount of file space. Instead, subdirectories take file space 
from the parent partition as required and release dee space when it is no longer needed. A 
call to the routine CDIR causes an entry to be made in a primary or secondary partition's file 
directory for a subdirectory. The format of the call is: 

CALL CDIR ( name , error) 
where: name is the name of the subdirectory- 
error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to CDIR is: 

CALL CDIR ("SD1R", IER) 

/- ■■■- i .-■ ■■• ■■ ' i-y Ro-'di -■ ■d'-'' V-l " i 

RDOS permits the parceling of disk file space among several users, on both a fixed and semi- 
variable basis. Fixed parcels of a contiguous disk file are called secondary partitions. 

A call to CPART creates a secondary partition and enters the name of the secondary partition in 
the primary partition's system directory. The primary partition can never be deleted; however, 
secondary partitions and subdirectories can be deleted. If a secondary partition is deleted, any 
subdirectories within that secondary partition are also deleted. The format of the call to CPART 
is: 

CALL CPART ( name, size, error) 

where: name is the name to be assigned to the newly created secondary partition. 

size is an integer constant or variable indicating the number of contiguous blocks in 
the secondary partition. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to CPART is: 

CALL CPART ("SECP", 14, IER) 

Get the Logical Name of the Master Device (MDIR) 

Since inter-device bootstrapping is possible under RDOS, the current master device may not be 
the master device which was defined at the time of system generation. A call to the routine MDIR 
permits die user to determine the current name for the current master device. 'The format of the 
call is: 

CALL MDIR ( array, error) 
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Get the Logical Name of the Master Device (MDI.R) (Continued) 

where: array is the name of an array which will return the name of the master device, 

error is an Integer variable which will return one of the error codes upon completion 
of the call. 

The master directory device is a primary or a secondary partition which becomes the current 
directory device after either a full system initialization or a disk bootstrap. The master device 
contains all of the system overlays, 

An example of a call to MDIR is: 

CALL MDIR (IAR, IER) 

Perform a Disk Bootstrap (BOOT) 

A call to the BOOT routine causes all open files in a currently executing system (both foreground 
and background)* to be closed, all directories to be released, and all system I/O to be reset. 
Control is then transferred to HIPBOOT which will bootstrap a new operating system. 

Bootstrapping may be performed with or without operator intervention. With operator intervention, 
the format of the call to BOOT is: 

CALL BOOT (partition, error ) 
where: partition is the name of the partition containing HIPBOOT. 

crror is an integer variable that will return one of the error codes upon completion of the call. 
An example of a call with operator intervention is: 

CALL BOOT ("DPO", IER) 

which will load HIPBOOT from moving head disk unit 0. When loaded, HIPBOOT queries the user with 
FILENAME?, requesting the name of the system to be bootstrapped. A system file response is then given 
by the user as described in Appendix D. 

Without operator intervention, the following conditions must be fulfilled: (t) the operating system to 
be bootstrapped must be in a primary partition, (2) HIPBOOT must be in the same partition as the 
operating system, (3) the default operating system, SYS.SV, must be the system to be bootstrapped, 
(4) the user must have placed -1 in the CPU data switches (all switches in up position), and (5) the 
user must provide a save file named RESTART. SV that will perform whatever restart procedures are 
necessary to resume control of the real time process that was interrupted. When HIPBOOT bootstraps 
SYS.SV, the new system control will be chained to RESTART. SV. RESTART. SV must be in the same 
primary partition with SYS. SV, The time and date are not updated automatically and must be set by 
the user. 

With operator intervention, the format of the call to BOOT is the same as without operator Intervention, 
except that the partition specified must contain, HIPBOOT, SYS.SV and RESTART. SV. 

Get the Name of the Current System (GSYS) 

A call to the GSYS routine will return the name of the current operating system. The name returned 
will consist of the name plus its two-character extension terminated by a null terminator. The format 
of the call is: 

CALL GSYS (array , error) 



'BOOT should not be Issued from the background when the foreground is active. 
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Get the Name of the Current System (GSYS XGontinued) 

where: array is the name of the array which will return the name of the current operating 
system. The array must be large enough to accommodate 15 octal bytes. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to GSYS is: 

CALLGSYS (IAR, IER) 

DEVICE CONTROL 

i i s; ,;.',. f, nt .-.,i,. [p<, vrcp-s ! r i'dS ) 

A call to the routine OD1S will permit the user to prevent console interrupts from occurring within 
his program environment. CTRL A, CTRL C, and CTRL F console interrupts may not occur 
unless reenabled by a call to OEBL. The format of the call is: 

CALL ODIS 

Enable Console Interrupts (OEBL) 

By default, when a system is first bootstrapped, console interrupts CTRL A, CTRL C, and CTRL F 
are enabled. If console interrupts have been disabled by a call to the routine ODIS, this call re- 
enables them within its program environment. The format of the call is: 

CALL OEBL 
Enable Spooling (SPEBL) 
Simultaneous peripheral operation on-line (spooling) has been implemented for the following devices: 



SLFT 


$LPT1 


$PLT 


$PLT1 


$PTP 


SPTP1 


$TTO 


STTOl 


$TTP 


$TTP1 



Spooling permits the queuing of data for one or more spoolable devices, making the CPU available for 
further processing while those devices receive the queued data. Spooling occurs only when no other 
system operations are ready. (System operations are given a higher priority than any user tasks. ) 
Spooling is possible in a single program environment only if two or more system stacks have been 
allocated at SYSGEN time; a dual program environment requires three or more system stacks. When 
an insufficient number of system stacks is allocated, all spooling commands become no-ops. Since 
spooling requires disk buffers, the system will disable spooling if no free disk space is available at 
the time spooling is attempted. The user may re -enable spooling at some later time when sufficient 
i. '•:-•: '-»:•'•• r -p.:.- b .•■■:; ■- :r mi -.':•'. .-. 

A call to SPEBL will enable spooling on a device for which spooling had been previously disabled. The 
format of the call is: 

CALL SPEBL (devicename, error) 
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DEVICE CONTROL (Continued) 

Enable Spooling (SPEBL) { Continued) 

where: devicenanie is the name of the device which the user wishes to be a spoolable device. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to SPEBL is; 

CALL SPEBL ("$LPT", IER) 

Disable Spooling (SPDIS) 

The call to SPDIS causes a spoolable device to discontinue spooling its output. If this call is issued 
while a device is spooling, execution of the call will be delayed until all data waiting to be spooled has 
been output. Data output to the device before the spooled data has been exhausted will itself be spooled 
to the output device, delaying execution of the call to SPDIS even longer. The format of the call is: 

CALL SPDIS ( devicename , error) 
where: devicename is the name of the device which will no longer be a spoolable device. 

error is an integer variable which will return one of the error codes upon completion 

of the call. 

An example of a call to SPDIS is: 

CALL SPDIS ("SLPT", IER) 

Stop a Spool Operation (SPKIL) 

It is possible to stop a spool operation which is currently being performed, losing anv data which 
was in the output queue. The format of the call to SPKIL is: 

CALL SPKIL ( devicename , error) 

where: devicename is the name of the device currently spooling the output which is to stop. 

- error is an integer variable which will return one of the error codes uoon completion 
of the call. 

An example of a call to SPKIL is: 

CALL SPKIL ("SLPT", IER) 

USER INTERRUPT SERVICING 

Users who wish to incorporate non-SYSGENed devices into real time FORTRAN programs must 
provide tor the interrupt servicing to be done in assembly language, and for the creation of a three - 
word device control table (DCT) as explained in the RDOS User's Manual, 093-000075. 

Interrupt requests from special (non-SYSGENed) devices do not, for the most part, change the status 
of tasks in a FORTRAN multitask environment. Instead, such interrupts freeze the environment until 
servicing of the interrupt Is completed and the multitask environment is unfrozen. Likewise, ail 
other tasks will resume their former states when the environment becomes unfrozen, unless 'the user 
transmits a message to one of them by means of the transmit interrupt message command IXMT 
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It is still necessary, however, to identify the interrupt device to the system by means of a FORTRAN 
call (FINTD) and it is possible to remove this device from the system by means of another FORTRAN 
call (FINRV). Interrupt servicing and the FORTRAN run time routines FINTD and FINRV may be used 
in both single and multitask environments, 

Identifying a User Interrupt Device (F INTO) 

The FINTD routine is used to identify to the system a device that is capable of generating interrupt 
requests but which was non-SYSGENed. The format of the call to FINTD is: 

CALL FINTD (device-code, dct) 

where: device -code is an integer variable or constant which is the code of the user device, 
where device -code is less than 63. 

dct is the name of a three -word device control table which may be a dimensioned 
array or an externally defined item. The dct_ entries are defined in the RDOS 
Manual, 093-000075. Since the third entry is an address, the dct is usually 
handled in assembly language and defined as an external to the~FORTRAN program 
rather than an array. 

Those devices that were not identified to the system at SYSGEN time must be made known to the 
system by the FINTD routine. FINTD causes an entry for the specified device code to be placed in 
the system interrupt vector table. 

An example of a call to FINTD is: 

CALL FINTD(62, IDDCT) 

where: IDDCT is defined in the program either as 

EXTERNAL IDDCT 



DIMENSION IDDCT (3) 

Note that if IDDCT is an array, it must always be accessible in case of an interrupt, i. e. , it should 
be in labeled or unlabeled COMMON. 

There is a special usage of a call to FINTD to provide for automatic restart of user-defined devices and 
system devices to which power-up service is not extended after a power failure. Users having 
the power monitor/automatic restart hardware may make use of this call to provide power-up 
service in a user-written routine. The call has the format: 

CALL FENTD(63, name) 

where: name is the name of an externally declared user-written routine that provides the power- 
up interrupt servicing. 

•' ' ; -; t' 1 !••••• L ■ .••.■ '■: ■•■'.'' th. ■:?'. '. 

An example of this special usage call to FINTD is: 

EXTERNAL IPRUP 

CALL FINTD(63, IPRUP) 
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USER INTERRUPT SERVICING (Continued) 

Remove a Service Interrupt Device (FINRV) 

A previously added (FINTD) user interrupt device can be removed from the system interrupt vector 
table by a call to FINRV. The format of the call to FINRV is: 

CALL FINRV ( device -code) 

where: device-code is an integer variable or constant which must be the device code of a previously 

identified user interrupt device. 

If an attempt is made to remove a SYSGENed device or if the device code argument is not within the 
legal range of user interrupt devices (less than 63), a fatal run time error occurs and execution 
is terminated. 

An example of a call to FINRV is: 

CALL FINRV (23) 
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CHAPTER 3 
FILE MAINTENANCE AND I/O "CONTROL 



FILES, FILE NAMES 

A me is a collection of information or any device receiving or providing this information. All devices 
and disk file* are accessible bv file name. File names are byte strings of ASCII characters, packed 
le^t to right and terminated by a carriage return, form feed, space or null. Allowable ASCII char- 
acters are all upper case alphahetics, all numerics, the character dollar sign ($) and the character 
colon {:). 

A file name may consist of anv number of characters, but only the first ten are considered significant 
(in addition to a wo- character extension preceded by a period). Therefore, file names must be unique 
within their first ten characters. 



ABCDEFGHIJ 



is equivalent to ABCDEFGHIJKL 



I/O devices are given reserved device names; the list of these reserved names is given below. Where 
second devices/controllers are allowed, the name appears in the second column. 



Device 

incremental plotter 

teletypewriter punch 

card reader 

teletypewriter printer or display unit screen 

teletypewriter or display unit keyboard 

80 or 132 column line printer 

high-speed paper tape reader 

high-speed paper tape punch 

teletypewriter reader 

magnetic tape unit n (n = to 7) 

cassette unit n (n = to 7) 

DGC NOV AD 15C Tixed head unit 

moving head disk unit n 

input dual processor link 

output dual processor link 

multiprocessor communications adapter 

receiver 
multiprocessor communications adapter 

transmitter 
asynchronous data communications 

multiplexor 



Reserved Device Name 



$PLT 


$PLT1 


$TTP 


$TTP1 


$CDR 


SCDR1 


STTO 


STTOl 


STTI 


STTIl 


SLPT 


SLPT1 


$PTR 


$PTR1 


SPTP 


SPTP1 


$TTR 


STTR1 


MTn 


MTln 


CTn 


CTln 


DKO 


DK1 


DPn (n=0-3) 


DPn (n=4-7) 


$DPI 




$DPO 





MCAR 



MCAR1 



MCAT MCAT1 

QTY:nn (tin = - 64 = line number) 



Under FORTRAN IV, when writing a file name, that file name must appear either within quotation 
marks (quotes), or within apostrophes (sometimes referred to as single quotes). For example: 

"FTP" *CT0:6' "ABC* 'TEST" 'TEST.SV 

In the call formats appearing on following pages, the variables filename and devicename often appear. 
For example: 

CALL DFILW (filename , error ) 
CALL SPEBL (devicename, error) 
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FILES, FILE NAMES (Continued) 



Referencing a File 

A file must be opened (L e. » associated with a channel number) before it can be accessed The 
channel number may have been predesigned (see list below) or may be user -assigned in a call to 
OPEN or FOPEN. Any of the 64 channels (0^63) can be associated with any file or device in a call no AP-v 
or FOPEN (even if the Me/device already has a pre-assigned number). The p^T^££lT*Z 
number 1S temporarily suspended for the duration of the call to OPEN or FOPEN (e.g., a call to CLOSF 
FCLOS, or RESET will disassociate the channel/ device number). *•*>.»* c.an to CLOSE, 

The pre-assigned channel numbers (with foreground associations listed within parentheses) are as 

follows: 

Device Channel 



$PLT 


6 


$TTP 


8 


$CDR 


9 


STTO ($TTOi) 


10 


$TTI (STTI1) 


ii 


SLPT 


12 


$PTR 


13 


$PTP 


14 


$TTR 


15 



Note that when issuing a TYPE statement, channel 10 is associated with either $TTO or $TT01 
(depending on whether executing in the background or the foreground) and when issuino- an ACCEPT 
statement, channel 11 is associated with either $TTI or STTI1. Both of these channel" associations 

are made without issuing a call to the routine FOPEN or OPEN. 

Referencing a File on Magnetic Tape or Cassette Units 

Files are placed on tape in numeric order (0 - 99). A given file is referenced bv the device name 
followed by a colon followed by the file number: 

CTnan (CTln:m) or MTh:m (MTlmm) 

where: _n is the unit number ( to 7) 

m is the file number (0 - 99) 

CTn, CTln, MTn, and MTln are the default names of the particular devices. It is possible to 

change these device names by a call to EQUIV. 
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FILES, FILE NAMES (Continued) 



Links, Link Entires 



Users car. access any disk file, magnetic tape file, or cassette file by its name or by several different 
names (called aliases). By using link entries, users can access files outside their own directories, 
(For those readers not familiar with directories, turn to Chapter 2. ) A single copy of a commonly 
used disk file can then be linked to by several users in the same or in different partitions, resulting 
in a conservation of total disk file space. 

These link entries may in turn point to other link entries, and so on, up to a depth of ten (decimal). 
This depth is referred to as the depth of resolution, as the final file linked to is called a resolution 
file, or resolution file entry. 



LINK L3 



sub- 
directory 



LINK L 



sub- 
directory 



LINK LI 



secondary 

partition 




partition 



Link entries are created by a call to DUNK, and can be deleted by a call to DULNK. 

Whenever a link is to be resolved (i.e. , when the link is opened), the directory containing the resolution 
entry is initialized by the system if not already initialized. However, when the link entry to this file 
is created, the pertinent directory containing the resolution file need not be initialized , in fact, the 
resolution file need not even exist at this time. The link entry name must be unique within its own 
directory. 

Looking at the diagram above, four links exist to the resolution entry for the file ABC.SV. In order 
for any given link to be resolvable, all intermediate links must be resolvable. Thus, if LINK LI is 
unlinked, LINK L is no longer resolvable. LINK L2 and LINK L3 will be resolvable at that point, 
however. 

Each resolution entry contains two kinds of attributes: 

resolution file attributes 
link access attributes 

Resolution file attributes apply to direct users of files. Link access attributes specify file attributes 
for users linking to these files. The attributes for the resolution entry are set when the resolution 
file is created and could have been subsequently changed by the user (by a call to FSTAT). Link 
access attributes are initially set to zero, but are subsequently changed by the user by a call to 
CHLAT). 

After a user has opened a file via a link entry, that file's attributes can be changed via a call to 
FSTAT. These attributes are in effect for only the length of time the file is open via the link entry. 
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FILE MAINTENANCE 



Assigna New Name to a Multiple File Device 



assigns a temporary name to a multiple file device, permitting unit 
cution of a FORTRAN program. Thus magnetic tape file references 

/ name MTAPE in a FORTRAN program, with assignment to a specified 
t (e.g. , MT6) at run time by means of a call to EQUIV. No temporary 



11- «= t- 



he device is initialized. Temporary names persist until either a 
-~~ «~»u« K , x ClC dsc» or new temporary name assignment is made. The format of the call is: 

CALL EQUIV ( name 1 , namc 2, error) 

where: ngmaoeei is the reserved or most recently assigned name of the multiple file device. 

name2 is the temporary name of the multiple file device. 

erarer is an integer variable which will return one of the error codes upon completion 
oi the call. r 

The devices which can be equivalenced are: 

CTO - CT7, CT10 - CT17 
MTO - MT7, MT10 - MT17 
DPO - DP7 
DKO, DK1 

An example of a call to EQUIV is: 

CALL EQUIV ("MT6", "MTAPE", IER) 
Create an RDOS Disk File (CFILW) 
An RDOS disk file is created by executing a call to the CFILW routine. The call has the format: 

CALL CFILW ( filename , type f , size }, error) 
where: filename is the name to be assigned to the new file. 

typhis an integer constant or variable whose value indicates the type of the file to be 
created, either: 

1 Sequentially organized file 

2 Randomly organized file 

3 Contiguously organized file 

severe is an integer constant or variable giving the sir* in number of blocks (256 words) of 
a contiguously organized file. This argument is used only for type 3 (contiguous) files. 

eaereeyr is an integer variable which will return one of the error codes uron completion 
of the call. 
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FILE M4INTFT1ANCE (Continued) 

Create an RDOS Disk File (CFiLW) (Continued) 

The name filename must be unique with respect to all other file names in the system. The size of a 
contiguously organized file must he specified by size and cannot he changed after the file has been 
created. An example of a call to CFILW is: 

CALL CFILW CT10", 3, 20, IER) 

Delete an RDOS Disk File (DFILW) 

An RDOS disk file may be deleted by issuing a call to DFILW. The file must be closed before being 
deleted. "The call has the format; 

CALL DFILW ( filename , error ) 
where: filename is the name of the file to be deleted. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to DFILW is: 

CALL DFILW ("DATA 12", IER) 

Delete a File (DELETE) 

Files may be deleted using the library routine DELETE (although DFILW is preferred to DELETE). 
The call takes the form: 

CALL DELETE ( filename ) 

where: filename is the name of the file to be deleted. 

The file specified will .be deleted from the system directory If it exists and is not open. Only closed 
files can be deleted. If the file is currently open, an error message will be returned. An example 
of a call to DELETE is: 

CALL DELETE ("DATAFILE") 

Renaming a File (RENAM) 

A disk file may be renamed by executing a call to the RENAM routine. The format of the call is: 

CALL RENAM ( oldfilename , newfilename , error) 
where: oldfilename is the file name that is to be changed, 

newfilename is the new name which is to be assigned to the file. 

error in an integer variable which will return one of the error codes upon completion of 
the call. 

An example of a call to RENAM is; 

CALL RENAM ('TEST**, "SORT", IER) 
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FILE MAINTENANCE (Continued) 



Create a Link Entry (DUNK) 



The format of the call to DUNK is; 

CALL DLINK ( name I , { name 2 , t error ) 

where: namel is the name of the link entry, 

name 2 is the name of the alternate directory, alternate partition, or the alias name . 
mmelis omitted if the resolution entry has the name namel in the current primary partition, 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to DLINK is: 

CALL DLINK ('ABC, SV", "ABB.SV*, IER) 

Delete Link Entries in the Current Directory (DULNK) 

This call deletes a link entry (created earlier by DLINK) in the current directory. This call does not 
delete other links of the same name in other directories. Care must he exercised to ensure that 
the link being deleted is not required by links further removed from the resolution entry, or else the 
deletion of this link will render these more remote links unresolvable. The format of the call is: 

CALL DULNK ( name , error ) 

where: name is the name of the link entry to be deleted. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to DULNK is: 

CALL DULNK ('ABC. SV, IER) 

Ge t File Directory Information for a Given Channel (CHSTS) 

A call to the routine CHSTS returns a copy of the current directory status information for whatever 
file is currently opened on a specified channel. The format of the call is: 

CALL CHSTS ( channel, array , error ) 

where: channel is an integer constant or variable whose value specifies the number of the channel 
on which the device was opened. 

array is an integer array which will return a copy of the 22 octal word UFD for the 
current file. (See chart for STAT call.) 



3-6 



FILE MAINTENANCE (Continued) 

Get File Dire ctory Information for a Given Channel (CHSTS) (Continued) 

fif call! integer VariaWe WWCh WiU retUXn ° ne ° f * e err ° r C ° deS Upon com Pletio n 
An example of a call to CHSTS is: 

CALL CHSTS (1CHAN, IAR, IER) 
Get Current File Directory Information (STAT ) 

L C f sScSeTSf W T IT the USCr t0 ^ a COPY ° f tte CUrreDt direCt °^ StatUS ^"nation 
for a specified file. Tins call causes a copy of the 22 (octal) word UFD to be written into a user- 

specAed area. The file whose UFD is being copied need not be open at the tinae this "all TsTssaed 

I H J 3 * 01 * 11 ' "^ ^ iM0rmati0n retoned is a "snapshot" of the UFD as it existed" 

the time of the most recent OPEN. ^-^lcu a. L 

Following is a template of the UFD with displacement mnemonics: 



Displacement 



0-4 
5 

6 

7 

10 

11 

12 

13 

14 
15 
16 
17 
20 
21 



Mnemonic 



UFTFN 

UFTEX 
UFTAT 
UFTLK 
UFTBK 

UFTBC 
UFTAD 

UFTAC 

UFTYD 

UFTHM 

UFTP1 

UFTP2 

UFTUC 

UFTDL 



Contents 



File name 
Extension 
File attributes 
Link access attributes 
Number of the last block in the file 
Number of bytes in the last block- 
Starting logical block address of the file 
(random file index for random files) 
Year /day last accessed 
Year/day created 
Hour/minute created 
UFD temporary 
UFD temporary 
User count 
DCT link 



Link UFDs assign mnemonics UFLAD and UFLAN to words 7 and 14. Also in link UFDs, words 
respecSil " ^ ^ ^^ f ° T ^ alternate directory specifier (if any) and an alias (if any) 

The format of the call to STAT is: 

CALL STAT (filename, array, error) 
where: filename is the name of the file for which status information is to be copied. 

arinay is an integer array which will return the status information. 

eaoxor is an integer variable which will return an error code upon completion of the call. 
An example of a call to STAT is: 

CALL STAT ("Y10A IAR, IER) 
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FILE MAINTENANCE (Continued) 

Update the Current File Size (UPDATE) 

A call to the run time routine UPDATE permits a file's size information to be updated without 

first closing the file. Specifically, this call causes information 1b UFTBK and UFTBC in the 
UFD on disk to be updated with current information for the file opened oh a specified channel, 
and it flushes all system buffers to ensure that the file contains all information which has been 
written into it by the user. The format of the call to UPDATE is: 

CALL UPDATE (channel, error) 

where: channel is an integer variable or constant which specifies the channel on which the file is 
currently open, 

error is an integer variable which will return one of the error codes. 
An example of a call to UPDATE is: 

CALL UPDATE (ICHAN, IER) 
FILE ATTRIBUTE MAINTENANCE 

File attrihute calls allow the user to determine the current attributes of a file or device and to change 
the file attributes if desired. 

Examine the Attributes of a File (GTATR) 

The GTATR call will obtain for examination by the user the attributes of a file. To obtain attributes, 
the file must first have been opened on the channel number specified within the GTATR command. 
The call to GTATR has the format: 

CALL GTATR ( channel , attributes , error ) 

where: channel is an integer constant or variable whose value specifiesthe number of the channel 
on which the file whose attributes are to be examined is opened. 

attributes is an integer variable whose value is set to represent the attributes of a file. 

error is an integer variable which will return one of the error codes upon completion of 
the call. 

The representation of attributes is as follows: 



Bit 



1B0 

1B1 
1B2 
1B3 
1B4 
1B5 
1B6 

1B7 
1B9 
IB 10 
1B11 
1B12 
1B13 
IB 14 
1B15 



Meaning 



Read- protected file. Cannot be read. 

Attribute -protected file. Attributes cannot be changed. 

Save file (core image file). 

Link entry. 

Partition, 

Directory file. 

Link resolution (temporary). Some or ail of the attributes persist for the duration 

of the open. 

No link resolution allowed. 

User attribute. 

User attribute. 

Reserved 

Contiguous file. 

Random file. 

Permanent file. Cannot be deleted or renamed. 

Write -protected file. Cannot be written. 
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FILE ATTRIBUTE MAINTENANCE (Continued) 

Examine the Attributes of a File (GTATR) (Continued) 

An example of a call to GTATR is: 

GALL GTATR (5, IAT, IER) 

Change, Add, or Delete File Attributes (FSTAT) 

The call to FSTAT causes a file's attributes (or its resolution attributes, in the case of a link) to be 
changed as specified by the user, If this call is issued by a link user, his copy of the file attributes 
is temporarily changed until he closes the file; the resolution attributes persist. To change the 
attributes of a file, the file must first be opened. The format of the call to FSTAT is: 

CALL FSTAT ( channel, attributes , error ) 

where: channel is an integer constant or variable whose value specifies the number of the channel 
on which the file whose attributes are to be changed is opened. 

attributes is an integer constant or variable whose value specifies the attributes to be 
assigned to the file. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

The representation of the attributes which may be assigned to attributes is the same as listed 
on page 3-8 for the GTATR call. An example of a call to FSTAT is: 

CALL FSTAT (12, 1, IER) 

C/.; " ■ ■ ■'- tie !. ; •■'': b : ■ i .v ■-. ■; A-', 'Tea .■: ; G 'I. i '" > 

This call causes the user's copy of the link access attributes word to be changed. When a file is 
opened via a link entry, the attributes of the file as seen by the user are formed by the inclusive OR 
of the resolution entry's attributes and the user's copy of the link access entry attributes. The link 
access entry attributes are zero by default. The format of the call is: 

CALL CHEAT ( channel , attributes , error ) 

where: channel is an integer constant or variable whose value specifies the number of the channel 
on which the file whose attributes are to be changed is opened. 

attributes is an integer constant or variable whose value specifies the attributes to be 
assigned to the file. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

The representation of attributes is as shown on page 3-8 for the GTATR call. An example of a call 
to CHEAT is: 

CALL CHEAT (5, IAT, IER) 
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FILE INPUT/OUTPUT 

Get the Name of the Current Input/Output Console (GCIN, GCOUT) 

Before opening the console device, the user might find it necessary to find out which device is the 
current console to be used for input and which is the current console to he used for output. This is 
accomplished by issuing a call to either the routine GCIN or the routine GCOUT, 'The format of 
the two calls is: 

CALL GCIN ( array ) -. — - — get the name of the current input console ($TTI or $TTI1) 

CALL GCOUT ( array ) -« get the name of the current output console ($TTO or $TT01) 

where: array is the name of an integer array that will contain the console name requested. 
An example of a call to GCIN and GCOUT is: 

CALL GCIN(IAR) 

CALL GCOUT (IARR) 

Opening Files 

Open a File (OPEN) 

An RDOS disk file may be opened by executing a call to OPEN. The call has the format: 

GALL OPEN ( channel, filename , Tmode^ , error f, size^) 

I arra y i 

where: channel is an integer variable or constant whose value specifies the number of the channel 
(h - '-3) on which filename is opened. 

filename is the name of the file which is to be opened. 

mode (an alternate argument in the command line) is an integer constant or variable whose 
value indicates the mode of the file being opened, either: 

1 - open for reading only 

3 - open for writing by one user but for reading by one or more users 
other than 1 or 3 - open for user -shared reading and writing 

array (an alternate argument in the command line) is a three-element integer array whose 
elements contain the following information: 

First element: contains -1 (the array flag) 

Second element: contains either: 

1 - open for reading only 

3 - open for writing by one user 

other than 1 or 3 - open for user -shared reading and writing 

Third element: contains the device characteristic mask (see next page) 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

size_is an argument which is an integer constant or variable specifying the number of bytes that 
are to make up a record of a random file, size must be given only if the file is random. 
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FILE INPUT/OUTPUT (Continued) 



Opening Files (Continued) 
Open a' File (OPEN) (Continued) 

When a call to OPEN is executed, the file with the specified name filename will be opened on the 

channel specified by the value of channel . If filename is a sequentially organized file to which informa- 
tion is to be written, nil previous information contained in the file will be overwritten. Note that if 
a TYPE or ACCEPT statement was issued before the call to OPEN, channel numbers 10 or ii, 
respectively, are already open unless closed by the user. 

The bit/characteristic correspondence used in setting the device characteristic mask is: 



Bit 



1B0 
1B1 

1B2 

1B3 

1B4 

1B5 

1B6 

1B7 

1B8 

1B9 

1B10 

1B11 

1B12 

1B13 

1B14 

1B15 



Meaning 



Spooling enabled (0B0 is spooling disabled)* 

80- column device 

device changing lower ease ASCII to upper case 

device requiring form feeds on opening 

full word device (reads or writes more than a byte) 

spoolable device" 

output device requiring line feeds after carriage returns 

input device requiring a parity check; output device requiring parity to be computed 

output device requiring a rubout after every tab 

output device requiring nulls after every form feed 

a keyboard input device 

a teletype output device 

output device without form feed hardware 

device requiring operator intervention 

output device requiring tabbing hardware 

output device requiring leader /trailer 



If an MCA line is being opened, the third element of the array cannot contain a characteristic 
inhibit mask Instead"", for receiver lines die word must be cleared to zero. If a transmitter line 
is no be opened and the default number of retries (requiring 655 seconds) is to be used, the element 
must agam be' cleared to all zeros. However, if a different timeout value is to be specified, bit Id 
of the element must be set to one (and all other bits must be cleared). The actual specification oi a 
retry count will be deferred to the time the call to WRITR is issued. 

Examples of calls to OPEN follow: 

CALL OPEN (3, "TEST", 2, IER, 128) 

CALL OPEN (5, "X45", IAR, IER) 
Open a File (FOPEN) 

4 call to the routine FOPEN will assign a specified channel number to a device or to a disk file. By 
default, a disk file will be opened in random mode and a device will be opened in sequential mode. Tie 
call to FOPEN has die following format: 

CALL FOPEN ( channel , f ilename f , "B" j f , recordbj£tes -] ) 

where: channel is an integer constant or variable with a value between and 63 1Q . 



Cannot be changed by an OPEN command. 
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FILE INPUT/OUTPUT (Continued) 

Opening Files (Continued 

Open a File (FOPEN ) {Continued) 

m«p™Lis a string constant or array name. The array is initialized to a. ASCII string bv 
- , , Statement or 1S in P"t using the S (not the A, FORMAT descriptor * fWh-n ^H^Vbl 
clertej C Q)erating SyStem ' m£!Sme_i S ignored ancyF J _r_ 1 A • -. , - _,■ ', , ■' .„,..' ; S], 

*V- indicates that the file is opened with ail device characteristics inhibited, f^is inJl%its 
such functions as outputting a rubout after a tab to the paper tape punch. ) 

reecerdheveo^ a random file record and is the leneth in bvt«s of the -anc'om fii^ * , 

referenced as an integer constant or a variable. M XeCOrd 

Examples of calls to FOPEN are: 

CALL FOPEN (ICH, "RFILE", "B", 200) 
CALL FOPEN (3, 'DATAFILE', 40) 

CALL FOPEN (4, *$PTR', *B') 

Open a File for Appending (APPEND ) 

A file is opened for appending by executing a call to the APPEND routine. The call has the format: 
CALL APPEND ( channel , filename , ^model, error {, size} ) 

1 arra y f 

where: cTaoemed is an integer variable or constant whose value specifies the number of the channel 
(0 - 63) on which filename is appended to. 

filename is the name of the file to be opened for appending. 

j^de (an alternate argument in the command Une) is an integer constant or variable whose 
value indicates the mode of the file being appended to, either: 



1 



- open for reading only 

" ^s^n^tfMm user only ' though one ° r more iisers 

otiier than 1 or 3 - open for user-shared reading and writing, 
arrraey (an alternate argument in the command line) is a three-element integer arrav whose 
elements contain the following information: "' 

First element: contains -1 (the array flag) 

Second element: contains either: 

1 opened for reading only 

3 opened for writing by one user 

other than 1 or 3 opened for user- shared reading and writing 

Third element: contains the device characteristics mask (as listed for the 

OPEN call). 

rlffali! ^ mteger VariaMC WWCh WlU rGtUXn ° ne ° f thG err ° r COdeS u P° n completion of 

fhupeis an integer constant or variable specifying the number of bvtes that are to make up 
a record oi a random file, jsdze must be given only if the file is random. 



3-12 



ill.!- 1MT; ul :V\ ': \C< i.t:m, :i 

Up "idy ["■':'.-. to. ■:•;!:; 'i .1 

(nx-:. a i'il- f .- ■,- A;-,-. :.- :iv.. ■ AlTHND i (C ■:;?■;:• , li 

When a call to APPEND is executed, the end of the file filename is located and filename is opened 
on the specified channel. Subsequent output of the file is appended to the data already there. An 
example of a call to APPEND is: 

CALL APPEND (5, "SQRT", 2, IERR, ISIZ) 

Closing Files 

Close a File (CLOSE) 

An RDOS file may be closed by a call to the routine CLOSE (which is preferred to FCLOS). The 
call has the format: 

CALL CLOSE (channel , error ) 

where: channel is an integer variable or constant whose value specifies the channel number 
associated with the file to be closed. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to CLOSE is: 

CALL CLOSE (14, IER) 

Close a File (FCLOS) 

The FCLOS routine may also be called to free a channel and to close a file on the specified channel. 
The format of the call is: 

CALL FCLOS ( channel ) 

where: channel is an integer constant or variable with a value between and 63|g specifying 
the channel which the user wishes to free. 

An example of a call to FCLOS is: 

CALL FCLOS (10) 
Close all Open Files (RESET) 
All open files can be closed by issuing a call to RESET. The call has the format: 

CALL RESET 
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FILE INPUT/OUTPUT (Continued) 
Reading and Writing Blocks and Records 
Read a Series of Blocks (RDBLK) 

A series of blocks can be read from a contiguously or randomly organized file without utilizing a system 
buffer by executing a call to the RDBLK routine. The call has the format: 

CALL RDBLK (channel , sbloek , array , nblock , error { , ibik } ) 

where: channel is an integer constant or variable whose value specifies the number of the channel 
on which the contiguously organized file to be read from is opened. 

sbiock is a n integer constant or variable whose value specifies the number of the first block 
to be read. 

array is the name of an integer array that is to receive the blocks that are read. The array 
must ^ nblock * 256 words in length. (No error check is made on the adequacy of the array 
length. ) 

nblock is ^ integer constant or variable whose value specifies the number of consecutive 
blocks to be read. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

ib ^ is an optional integer variable that will be set to return the number of blocks read 
on encountering an EOF. 

An example of a call to RDBLK is: 

CALL RDBLK (10, 100, IARR, 15, IER, 1BLK) 

Execution of this call causes 15 contiguous blocks to be read, starting from the 100th block, into array 
IARR. The IARR array must have been previously dimensioned to a length of 3840 words 

■ v ■ . ■■ -S- ■•:-. .-. m ,m , t ■:■'■■- (Ri-./.DR, RPR,'. ) 

A series of records can be read from a randomly organized file into an integer array by executing 
a call to RE ADR or a call to RDRW. The calls have the formats: 

CALL READR (channel , srec , array , nrec , error { , nbyte } ) 

CALL RDRW ( channel , srec , array , nrec, error { , nbyte } ) 

where: channel is an integer variable or constant whose value specifies the number of the channel 
on which the random file to be read is opened. 

srec is an integer constant or variable whose value specifies the number of the first record 
to be read. 

array is the name of an integer array that is to receive the records to be read. (There is no 
check on the adequacy of the array length. ) 

nxec is a n integer constant or variable whose value specifies the number of successive 
random records to be read. 
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Reading and Writing Blocks and Records (Continued) 

Read a Series of Records (READR, RDRW) ( Continued ) 

error is an integer variable which will return one of the error codes upon completion on the 
call. 

nbyte is an optional integer variable that returns the byte count read if an EOF or disk 
:'..]■ ::•• •- :.u. ..,:•<. .v '. 

CALL READR (15, 0, IARR, 20. IERR) 

Write a Series of Records (WRITR, WRTR) 

A series of records can be written into a file by executing a call to the WRITR routine or to the WRTR 
routine. The calls have the formats: 

CALL WRITR ( channel , srec, array, nrec, error f- , nbyte } ) 

CALL WRTR ( channel , srec, array, nrec, error f , nbyte ) ) 

where: channel is an integer constant or variable whose value specifies the number of the channel 
on which the file to be written is opened. 

srec is an integer constant or variable whose value specifies the number of the first record 
to be written. 

array is the name of the integer array that contains the information to be written. (No check is 
made on the adequacy of the array's length. ) 

nrec is an integer constant or variable whose value specifies the number of consecutive 
records to be written. 

error is an integer variable which will return one of the error codes upon completion of 
the call. 

nbyte is an optional integer variable that returns a partial byte count if an EOF or disk 
full is encountered. 

CALL WRITR (12, IRECD, IRAR, NRECD, IER, NBYTE) 

A ^ _!_____ _• — 

A series of blocks may be written into a contiguous or random disk file, without intermediate system 
buffering, from an integer array by executing a call to WRBLK routine. The call has the format: 

CALL WRBLK ( channel , sblock, array, nblock, error F- , Mk \ ) 
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FILE INPUT/OUTPUT (Continued) 

Reading and Writing Blocks and Records (Continued) 

Write a Series of Blocks (WRBLK) (Continued) 

where: channel is an integer constant or variable whose value specifies the number of the channel 
(0 - 63) on which the file to be written into is opened. 

sblock is an integer constant or variable whose value specifies the number of the first 
block to be written. 

array is the name of an integer array that contains the blocks that are to be written. The 
array must be 256 * nblock words in length, but no check is made on the adequacy of the 
array's length. 

nblock is an integer variable or constant specifying the number of blocks to be written. 

error is an integer variable which will return one of the error codes upon completion of 
the call. 

iblk is an optional integer variable that is set equal to the number of blocks written should 
a disk full occur. 

An example of a call to WRBLK is: 

CALL WRBLK (12, 200, IARR, IBLK, IERR, 1BYTE) 

FREE FORMAT CASSETTE OR MAGNETIC TAPE I/O 

^g_ : __ ■■■ •". < ■• V .. . --■■• c ". "....-> -a- :c-.- . e ■. hi .-. .-a; I < r. ]■/(■.:). 

Before free format reading or writing can be performed on either an initialized magnetic tape or 
cassette unit, the device must be opened and linked to a channel. The routine to open files or 
devices (OPEN) cannot be used to open a magnetic or cassette tape unit for free format I/O: only 
MTOPD can be used to open these devices for this purpose. 

A call to MTOPD positions a free format tape to a desired file, since the file name argument given 
to MTOPD includes both the unit name and the file number (MTnrm. or CTn:m). The format if the 
call is: 

CALL MTOPD (channel , filename , mask , error) 

where: channel is an integer constant or variable whose value specifies the number of the channel 
on which filename is to be opened. 

filename is the name of the magnetic tape unit or cassette unit to be opened. 

mask is the device characteristic mask. 

error Is an integer variable which will return one of the error codes upon completion 
of the call. 

For a list of the bit/characteristic correspondences see the OPEN call. 



3-16 



FREE FORMAT CASSETTE OR MAGNETIC TAPE I/O (Continued) 

Open a Cassette or Magnetic Tape Unit for Free Format I/O (MTOPD) (Continued) 

An example of a call to MTOPD is: 

CALL MTOPD (16, "MTd:!'*, 0, IER) 

Free Format Tape I/O (MTDIO ) 

Before free format I/O can be performed on a tape unit, that unit must first have been opened for 
free format I/O by means of a call to MTOPD. The call to MTD 10 permits the operation of mag- 
netic tape and cassette units on a machine level: reading and writing of records in variable length 
records or to the start of a new data file, and performing of other similar machine level operations. 
Free format I/O is entirely under user control; the user must check for proper formatting when 
using MTDIO. The format of the call is: . 



CALL MTDIO ( channel , commandword , I/O -array , status , error -I, L ) 



{ record -co arnt 
word -count 



'} 



where: channe 1 is an integer constant or variable specifying the channel number (0 - 63) on 
vmmk r\- ; moc, v. ..: ..g-r,<. ■■' . 

commandword is an Integer constant or variable whose bits specify which operation 
is to be performed as follows: 



Bit Meanin* 



S 



Parity bit (1 = even, = odd) 

1-3 - read (words) 

1 - rewind the tape 

3 - space forward (over records or over file of any size) 

4 - space backward (over records or over file of any size) 

5 - write (words) 

6 - write end of file 

7 - read device status word 

4-15 Word or record count. If on a space forward (or space 

backward) command, the tape is positioned to the beginning 
of the next (or previous) file on the tape. If on a read or 
write command, 4096 words are read (or written) unless an 
end of record is detected. 

I/O -array is an integer array used for transmitting and receiving data. (In many 
ir -n nc •-, MTDIO is not used for data transfer, e.g. » when status Is requested, 
for rewinding, etc. In these instances, I/O-array must be present but Is a dummy.) 

status is an integer variable that can return the following status information; 

Bit Meaning 

Error (bits 1, 3, 5, 6, 7, 8, 10 or 14 set) 

1 Data late 

2 Tape is rewinding 

3 Illegal command 

4 High density if = 1 (always 1 for cassettes) 

5 Parity error 

6 End of tape 
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FREE FORMAT CASSETTE OR MAGNETIC TAPE I/O (Continued) 
Free Format Tape I/O (MTDIO) (Continued) 

Bit Meaning 

7 End of file 

8 Tape is at load point 

9 9-track if =1, 7 -track if =0 (always 1 for cassettes) 
10 Bad tape or write failure 

i 1 Send clock (always for cassette) 

12 First character (always for cassette) 

13 Write protected or write -locked 

14 Odd character (always set to for cassettes) 

15 Unit ready 

error is an integer variable that returns one of the FORTRAN error flags (page 1-3), 

which is a positive value. 

record -count or word -count is an optional integer variable that returns the num- 
ber of words written or read on a write or read or returns the number of records 
spaced over on space forward or backward. 

An example of a call to MTDIO is: 

DIMENSION IRRAY (1024) 



CALL MTDIO (5, ICOM, IRRAY, ISTAT, IER) 
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CHAPTER 4 
TASKING 



MULTITASKING CONCEPTS 

A task is defined as a logically complete execution path through a user program that demands 
use of system resources such as peripheral devices for I/O, system or user overlays, or simply 
CPU control; task execution may occur independently and asynchronously with other tasks. 
A FORTRAN IV program run under RDOS can consist of any number of these tasks. 

When a running program consists of more than one task, it is said to be a multitasking program. 
In such a multitask environment, tasks compete simultaneously for the use of system resources. 
Only one task may receive CPU control and the desired resource at any single moment. This 
allocation Is awarded to tasks according to their priority and readiness to use the resources. 
A task scheduler governs the transfer of control to each task. 

FORTRAN IV uses the multitask programming facilities available under RDOS, which allow 
execution of various routines to be performed asynchronously as separate tasks. 

Task States 

At a given time during execution of a multitask program, a task can be in one of four states; 
dormant, suspended, ready, or executing. A dormant task is one that has not been activated 
yet or has been terminated. A ready task is one that can proceed when given control of the 
processor. A suspended task Is one that is not ready to proceed but Is still alive. Tasks are 
said to be active if they exist in either the ready, suspended, or executing states. 

When a task is activated (FTASK or 1TASK), it enters the ready state and competes with other 
ready tasks for control of the processor based on assigned priorities. When the task 
scheduler gives a ready task control of the processor, that task goes into the executing state 
and retains control until it has been completed or some event forces it to relinquish control. 
When a task cannot proceed until some event occurs, that task goes into the suspended state 
until that event occurs. 

The diagram on the following page outlines the various task states pertaining to the calls 
which transfer a task from one state to another. 

Task Control Blocks 



of an 



re task. 



eit-uvt; 



RLDR 



nat). Dt 



When a task is activated, a free fCB is taken from the free chain and linked to the active chain. 
This TCB is then filled with status information for the newly activated task. 
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Task State Transitions 



Task Priorities 



When a task is activated it is assigned a priority number in the range to 255 decimal. Tasks 
with the lowest numbers have the highest priorities. The task scheduler always gives control 
of the processor to the task in the ready state with the highest priority. The priority number 
assigned to a task can be changed while that task is executing a CALL PRI statement. 

More than one task may be assigned the same priority number. The relative priority of 
ready tasks with a common priority number is determined by the relative positions of their 
respective task control blocks (TCBs) on the active chain maintained by the task scheduler. 
Each time a task relinquishes control to the scheduler, its TCB is moved to the end of the 
active chain. This gives ready tasks with a common priority number approximately equal 
opportunities to receive control of the processor. 

Optionally, a task may have a task identification number (ID) which can be used in referencing 
that particular task. Task identification numbers have a default value of zero, or may be set 
with a value from 1 to 255, Only one task may be assigned to one identification number from 1 
to 255, although many tasks may have the default identification number of zero. 

Task Scheduler 

During the execution of a multitask program, the task scheduler receives control of the pro- 
cessor when a task issues I/O or other system calls. Tne task scheduler searches the active 
chain for the TCB of the ready task with the highest priority number. This task is then given 
control of the processor to the task. If there are no tasks in the ready state, hie task scheduler 
will wait until some event causes a task to be readied. 
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TASK EXECUTION CONTROL 

Number of Tasks 

In preparing a multi-task program for execution, the user must supply to RLDR a parameter specifying 
the maximum number of tasks which may be executing at any one time. This value may be supplied in 
one of three ways: 

1. The first FORTRAN program unit contains the statement 

CHANT ASK c,t_ 

where: c is the maximum number of channels. 

t is the maximum number of concurrently active tasks. 

When making channel and task specifications within a CHANT ASK statement, the CHANT ASK 
statement must precede all other statements in the main FORTRAN program, except a 
COMPILER DOUBLE PRECISION statement, COMPILER NOSTACK statement, or an 
OVERLAY statement. 

2. The first assembly language program has 

. COMM TASK, t ' 400 + c 

3. The RLDR command line contains 

c/C (for channels) 

t/K (for tasks) 

Task Control blocks (TCB's) will be allocated by RLDR in each case. 

The first TCB is set up to cause activation of the main task at its starting address, with a priority of 
(highest) and no task I. D. In FORTRAN IV this starting address is generally that of the runtime initializer 
. I, which in turn invokes the main FORTRAN program. 

The two types of tasks under consideration here are "FORTRAN" and non -FORTRAN tasks. All program 
units written in FORTRAN require that they be executed as "FORTRAN" tasks. However, a "FORTRAN" 
task need not be written in FORTRAN and can, in fact, be written in assembly language. 

A "FORTRAN" task is characterized by two features: 

1, An extended save capability 

2. FORTRAN stack facilities 

The extended save capability causes the following page zero FORTRAN state variables to be saved and 
restored on task swaps: 

. SVO general return address temporary 

. OVFL, NSP, . NDSP number stack pointers 

SP runtime temporaries stack pointer 

AFSE, QSP procedural stack pointers 

Whenever a task uses any of these variables, the task must be considered a FORTRAN task. The FORTRAN 
stack pointer FSP in location 16 is automatically saved, along with the accumulators and carry in the TCB. 

These capabilities require memory space generally not required by self-contained non- FORTRAN ("Assembly") 
tasks. At program initiation memory must be parcelled out among FORTRAN tasks. The number of such 
tasks is denoted by the value of the symbol FRTSK which may be supplied by the user in an assembly 

language module such as 

. ENT FRTSK 
FRTSK = f_ 
. END 
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Number of Tasks (Continued) 

The number of tasks specified indicates the number of task control blocks that will be available 
at run time. If an attempt is made to activate a task when all available TCBs are in use, an 
error condition will result (see Activating a Task), Each task subprogram must begin with a 
TASK statement and end with an END line. The TASK statement has the following format: 

TASK taskname 

where: taskname is the name assigned to the task program unit. This name must be unique within 

its first five characters with respect to all function, subroutine, task, and overlay names. 

A task name must be declared EXTERNAL in each external program unit that references it. Each 
task may be executed an arbitrary number of times during execution of a multitasking program. 

Task Activation (FTASK, ITASK, ASSOC) 

All tasks except the main FORTRAN program unit are activated by executing a call to either 
FTASK or ITASK. FTASK activates a task by task name ; ITASK associates the identification num- 
ber with the task name by which the task may later be referenced. A call to ASSOC associates a 
task name with an identification number and then puts the task in the suspended state; it can later 
be executed by calling START or TRNON. The call to FTASK has the format: 

CALL FTASK (taskname, $error-return, priority -number £, IASM} ) 

whcre: taskname is the name of the task to be activated, taskname is declared EXTERNAL 

in the calling task. 

Serror-return is a number of a statement in the calling program to which control is re- 
turned if the task cannot be activated (used when no TCB is available for the task). 

priority number is an integer constant in the range - 255 (decimal) specifying 
the priority assigned to the new task. (A priority of indicates priority the same 
as the calling program. ) 

IASM is an optional parameter which must be in the argument list and set to non- 
zero if the task to be activated is written in other than FORTRAN IV (i.e. , 
written in assembly language) and is not using the FORTRAN run time stack. Con- 
versely, if IASM does not appear within the FTASK command line, taskname must 
be written in FORTRAN IV. 

An example of a call to FTASK is: 

EXTERNAL PROG 
CALL FTASK (PROG, $14, 6) 
14 WRITE (10) "NOT ENOUGH TCBS" 

A call to ITASK will, as well as activate a task, associate an identification number with the 
specified task, i he format of the call to ITASK is: 

CALL ITASK ( taskname , identification, priority-number, error { » IASM ] ) 

where: !£skname is the name of the task to be activated, taskname must be declared EXTERNAL 

in the calling task. 

identification is the task identification number which is either an integer 
variable or an integer constant in the range - 255; zero is the default value 
of the ID. 
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Task Activation (FTASK, I T ASK, ASSOC) (Continued) 

priority- number is an integer variable or constant in the - 255 (decimal) 
range specifying the priority to be assigned to the newly activated task, A 
priority number of zero indicates that the task will have the same priority as 
the calling program. 

error is an integer variable which will return one of the error codes upon 
completion of the call, 

IASM is an optional parameter which must be in the argument list and set 

to non-zero if the task to be activated is written in other than FORTRAN IV (i.e. 

written in assembly language) and is not using the FORTRAN run time stack. 

Conversely, if IASM does not appear within the ITASK call, taskname , 

must be written in FORTRAN IV. 

An example of a call to ITASK Is: 



EXTERNAL Pi 

CALL ITASK (Pi, 10, 6, IER) 



A call to ASSOC has the format: 

CALL ASSOC ( taskname , identification , priority-number , error [ , IASM} ) 

where: taskname is the name of the task to be put in the suspended state, taskname is declared 

EXTERNAL in the calling task. 

identification is the task identification number which is either an Integer 
variable or constant in the range - 255 (decimal); zero is the default ID value. 

priority-number is an integer variable or constant in the - 255 (decimal) 
range specifying the priority to be assigned to the newly activated task. A 
priority number of zero indicates that the task will have the same priority as 
the calling task. 

error is an integer variable which will return one of the error codes upon 
completion of the call. 

IASM is an optional parameter which must be in the argument list and set to 
non-zero if the task to be activated is written in other than FORTRAN IV 
(i.e. , in assembly language) and not using the FORTRAN run time stack. 
Conversely, if IASM does not appear within the ASSOC statement format, 
taskname must be written in FORTRAN IV. 

The difference between a call to ITASK and a call to ASSOC Is that both calls associate 
a task name with an identification number, but ITASK puts the task in the ready state 
while ASSOC puts the task in the suspended state. Routines activated by ASSOC may 
later be put into the ready state for execution by a call to START or a call to TRNON, 
both described on pages following. 
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Tasks contained In overlays or resident in main memory can be executed periodically with 
an FQTASK call. If the task is contained in an overlay, it causes the overlay containing 
the task to be loaded so that execution of the task can proceed. Provision is also made to 
periodically execute core resident tasks. The call has the format: 

CALL FQTASK ( overlayname , task , array , error f, type} ) 

where: overlayname is the name of the overlay containing the task subprogram to be 

executed, overlayname must be declared EXTERNAL in the calling task. 

task is the name of the task subprogram (specified by TASK statement), task 
must be declared EXTERNAL in the calling task. 

array is the name of an 11 -element integer array that is unique for the task. 

error is an integer variable which will return one of the error codes upon 
completion of the call. 

type is an optional parameter which must be in the call if the task to be 
activated is written in other than FORTRAN IV (i. e. , written in assembly 
language) or if the task is core resident. But, if type does not appear 
within the FQTASK call, task must have been written in FORTRAN IV 
and must be an overlay. In the case of non-overlay tasks, overlayname 
is a required dummy, type , when present, is an integer variable or 
constant specifying: 

task is a FORTRAN overlay 

-1 task is core-resident (non-overlay) 

-2 task is non-FORTRAN overlay 

-3 task is non-FORTRAN and core-resident non-overlay 

Each task to be called by FQTASK must have a unique array . Before a call to FQTASK is 
executed, elements of array must have been assigned values as shown: 

Element Value 

1 Used by the system 

2 Number of times task is to be executed 

3 FJsed by the system 

4 Starting hour of the first task (Q< hours 23) 

5 Starting second within the hour of the 
first task execution (0< seconds 3599) 

6 Task priority 

/ Time (seconds) between successive task 

executions 

8 Used by the system 

9 Channel number on which the overlay file 

is opened (not used if task is core -resident) 

10 Overlay conditional flag (0 = unconditional, 
i = conditional). Not used if task is core- 
resident. 

11 Task ID. If no task ID is required, the 
element must be set to zero. 
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Task Activation Based on Time of Day (FQTASK) (Continued) 

In addition to setting up array, the overlay file containing overlayname must have been 
opened via a call to OVOPN. 

When a call to FQTASK is executed, overlayname is loaded at the time specified in array 
elements 4 and 5 and task is first executed. The task is executed periodically after each 
increment specified by element 7 until the task has been executed the number of times 
specified by array element 2. 

While it is not necessary for FORTRAN resident tasks queued in by FQTASK to be term- 
inated by a call to KILL or for overlay tasks to be terminated by OVKIL if they are queued 
in by a call to FQTASK, it is recommended that the user provide the terminating KILL or 
OVKIL calls respectively. 

Assembly language resident tasks and overlays are handled in a slightly different manner, 
but they also need not be terminated by a call to KILL or OVKIL respectively if queued in 
by a call to FQTASK. Assembly language resident tasks do not need a call to KILL if the 
address stored in ACS is saved on entry and jumped to on exit. Assembly language 
overlay tasks queued in do not need a call to OVKIL if the address stored in ACS is saved 
on entry and jumped to on exit with the overlay number stored in AGO. 

If the necessary overlay area for overlayname is not available or if there is no TCB avail- 
able for the task, task execution is postponed until the resource is available. Examples 
of calls to FQTASK are: 

CALL FQTASK (OV, TASKI, IAR, IER) 

CALL FQTASK (DUM, TASKI, IAR, IER, -1) 

Start a Task After a Time Delay (START) 

A call to the routine START will cause a task, which has been activated and put into the 
suspended state by a call to ASSOC, to be put into the ready state for execution after 
expiration of a specified time delay. The format of the call is: 

CALL START (id, time, unit, error) 

where: id is the identification number of the task which is to be delayed then executed 
at the expiration of the delay. 

time is an integer variable, constant or array element specifying the length of 
time (in units specified by unit ) of the delay before execution of the task. (If time 
equals zero, id will be executed as soon as permissible. ) 

unit is an integer variable, constant or array element specifying the units of 
time as follows: 

pulses of the real time clock 

i milliseconds 

2 seconds 

3 minutes 

error is an integer variable which will be set equal to one of the error codes 
upon completion of the call. 
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An example of a call to START is: 

CALL START (26, 30, 3, IER) 

Execution of the task with 26 as its identification number will commence in 30 minutes. 
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A call to theTRNON routine will ready a task that was activated and suspended by a call 
to ASSOC for execution at a specified time of day. The format of the call is: 

CALL TRNON (id, array, error) 

where: id is an integer variable, constant, or array element specifying the identification 
number of the task to be executed at a specified time. 

array is an integer 3-eiement array specifying: 

first element - hours , 
second element - minutes 
third element - seconds 

error is an integer variable which will return one of the error conditions upon 
completion of the call. 

An example of a call to TRNON is: 

CALL TRNON (32, EAR, IER) 

Task Suspension (SUSP, ASUSP, HOLD, WAIT, FDELY) 

The following may cause suspension of an executing task: 

1. A CALL SUSP is executed. 

2. A CALL HOLD is executed. 

3. The task must wait for some I/O event. 

4. A CALL FDELY is executed. 

5. A CALL ASUSP is executed to suspend all tasks of the 
same priority as the executing task. 

6. A CALL REC is executed to receive a message not yet sent. 

7. A CALL XMTW is executed to transmit a message for which 
a corresponding CALL REC has not yet been received. 

8. A CALL WAIT is executed. 

Note that a task may be doubly suspended, e.g. , by a call to ASUSP and I/O completion. 
In this case, two separate suspend bits are actually set and both must be reset before the 
task will be readied. 

Execution of a call to SUSP causes the task in which it is executed to be suspended. The 
format of the call is: 

CA LL SUSP 



Task Suspension (SUSP, AStlSP, HOLD, WAIT, FDELY) ( Continued) 

Execution of a call to ASUSP causes all tasks of a given priority (ready and executing) to 
be suspended. The format of the call is: 

CALL ASUSP ( priority-number ) 

where: priority number is a decimal integer (0-255) giving the priority number of the 

tasks to be suspended. A priority number of indicates a priority equal to that 
of the caller's. 

Execution of a call to HOLD causes the task having the identification number given in the 
call to be suspended. The format of the call is: 

CALL HOLD (identification , error ) 

where: identification is an integer variable, constant, or array element specifying the 
identification number of the task. 

error i s an integer variable which will return one of the error codes upon 
completion of the call. 

A call to the WAIT routine allows the executing task to voluntarily relinquish control of the 
system for a specified period of time. This enables lower-priority tasks to be executed 
for the duration of the delay. When execution is resumed, system resources will be as 
they were before the delay. The format of the call is: 

CALL WAIT ( time, units, error ) 

where: time is an integer variable, constant, or array element specifying the length 
of time (in terms of units ) delay to elapse before execution is resumed. 

units is an integer variable, constant, or array element specifying the unit of 
time to be used as follows: 

pulses of the real time clock 

1 milliseconds 

2 seconds 

3 minutes 

error is an integer variable which will return one of the error codes upon 
completion of the call. 

Execution of a call to FDELY will suspend that task for a specified amount of time. The 
format of the call is: 

CALL FDELY ( number -of -pulses ) 

where: number-of -pulses is a decimal integer, giving the number of real time clock 
pulses for which the task will be suspended. 

Readying a Task (ARDY, RELSE) 

When a task is activated, it is put into the ready state, and while active, remains in 
either the ready state, the executing state, or the suspended state. A suspended task can 
be readied under the following circumstances: 
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Readying a Task (ARDY, RELSE) (Continued) 

1. A task suspended by execution of a call to SUSP, HOLD, or ASUSP may be 

readied by execution of a call to ARDY, 

2. A task suspended for performance of I/O is readied automatically when 
I/O is completed, 

3. A task suspended by execution of a call to FDELY is readied at the end 
of the time period specified, 

4. A task suspended by execution of a call to REG is readied by the execution 
of a corresponding call to XMT or XMTW, 

5. A task suspended by execution of a call to XMTW is readied by the 
execution of a corresponding call to REG. 

Mote that a doubly suspended call must be doubly readied. Execution of a call to ARDY 
causes all tasks of the priority specified in the call to be readied if they were previously 
suspended by a SUSP, ASUSP, or HOLD call. No other tasks are affected. The format of 
the call is: 

CALL ARDY ( priority -number ) 

where: priority -number is the priority number of the tasks to be readied. 

Execution of a call to RELSE causes the task having the identification number given in 
the call to be readied if it was suspended by a SUSP, ASUSP, or HOLD call. The format 
of the call is* 

CALL RELSE (id, error) 

where: id is the identification number assigned to the task in an ITASK call. 

error i s an integer variable which will return one of the error codes upon 
completion of the call. 

Task Priority Modification (PR1, CHNGE) 

When a task is activated it is assigned a priority number. A call to PR1 makes it possible 
to change the priority number of the task. The call has the format: 

CALL PRI ( priority -number) 

where: priority-number gives the new priority of the task. 

Execution of a call to PRI causes the priority number of the executing task to be changed. 
A task may change its priority any number of times while it is active. An example of a 
call to PRI is: 

CALL PRI (37) 

Execution of a call to CHNGE causes the priority number of the task having the identification 
number given in the call to be changed. The format of the call is: 

CALL CHNGE (id, priority-number , error) 
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Task Priority Modification ( PRI , CHNGE) (Continued) 

where: id_is the identification number of the task. 

priority-number gives the new priority of the task. 

error is an integer variable which will return one of the error codes upon 
completion of the call. 

Task Termination (KILL, AKILL, ABORT, EXIT) 

A task may be terminated (placed in the dormant state) by execution of a call to KILL, AKILL, 
ABORT, or EXIT. Execution of a call to KILL kills the executing task. The format of the call is 

CALL KILL 

Execution of a call to AKILL immediately terminates all ready or executing tasks of the 
priority number given in the call. Any suspended tasks having that priority number 
are killed immediately, unless they are awaiting an I/O event, in which case they are killed 
Immediately after they are readied. The format of the AKILL call is: 

CALL AKILL (priority-number ) 

Execution of a call to ABORT terminates the task having the identification number given 
in the call. The format of the call is: 

CALL ABORT (id, error ) 

where: id is the identification number previously assigned in an ITASK call. 

error is an integer variable which will return one of the error codes upon 
completion of the call. 

Execution of a call to EXIT causes the executing task to be terminated and causes a return 
to the CLI. The format of the call is: 

CALL EXIT 

Obtaining Task Status (STTSK) 

The user can obtain the current status of a given task (ready, suspended, or inactive) 
by a call to the STTSK routine. The format of the call is: 

CALL STTSK (id, status, error ) 

where: id is the identification number of the task, assigned in a call to ITASK. 

status is an integer variable for which a status code Is returned. 

error is an integer variable which will return one of the error codes upon 
completion of the ealL 
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Obtaining Task Status (STTSK) (Continued) 

The possible status codes that may be returned are; 

Ready 

1 Suspended by a . SYSTM call 

2 Suspended by ASUSP, SUSP, HOLD 

3 Wait due to XMTW or REG 

4 Wait for overlay node 

5 Suspended by ASUSP, SUSP, or HOLD and by a .SYSTM call 

6 Suspended by XMT/REC and by SUSP, ASUSP, or HOLD 

7 Wait for overlay node and suspended by ASUSP, SUSP, or HOLD 

8 No tasks exist for this identification number. 

INTERTASK COMMUNICATION (XMT, REG, XMTW) 

Active tasks may communicate with each other through shared COMMON (labeled or blank). 
Information generated by one executing task can be retained in data or subprogram units 
until one or more other tasks are executing and can access this information. No 
synchronization of creation and use of information is implicit in this scheme. Unless 
precautions are taken, attempts may be made by tasks to use information not yet generated. 

Synchronized transmission of one word messages between active tasks can be accomplished 
using three calls: CALL XMT, CALL XMTW, CALL REC. The format of the call to 
XMT is : 

CALL XMT ( message -key , message -source , S error-return ) 

where- message-key is an integer variable common to both the transmitting and 
receiving tasks. 

message -source is an integer variable in the transmitting task containing the 
non-zero message to be transmitted. 

error-return is the number of a FORTRAN statement (in the program unit con- 
taining the CALL XMT statement) to which control is returned if the message - 
key is non-zero when the CALL XMT is executed. 

A one-word non-zero integer message can be transmitted by setting message-source 
equal to that value and then executing the CALL XMT. A message transmitted to XMT is 
received by execution of a call to the REC routine. The call has the format; 

CALL REC ( message -key , message -destination) 

where: message-key is an integer variable common to both the transmitting and 
receiving tasks. 

message destination is an integer variable accessible by the receiving task. 
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INTERTASK COMMUNICATION (XMT, REC, XMTW ) (Continued) 

If CALL REC is executed before the corresponding CALL XMT, the receiving task is 
suspended until CALL XMT is executed. When CALL XMT is executed, message - 
destination Is assigned the value of variable message -source and the receiving task is 



A call to XMTW routine is used In place of CALL XMT when it is desired that the trans- 
mitting task be suspended until the receiving task receives the message. The call XMTW 
has the same format as CALL XMT, with XMTW merely replacing XMT. The transmitting 
task is suspended only if CALL XMTW Is executed before the corresponding CALL REC. 

An example of the intertask communication calls is: 

TASK SEG1 
COMMON KEY 



CALL REC (KEY, MDEST) 



END 



TASK SEG2 
COMMON KEY 



CALL 



XMT (KEY, MSRCE,$17) 



17 WRITE (10) "KEY ALREADY SET* 



END 
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TASK OPERATOR COMMUNICATION MODULE 

A small task Operator Communications Module (OPCOM) is available which permits certain specific 
operator commands to be executed immediately when entered from the operator console, TTL 
OPCOM provides the capability to sample or change the status of tasks, and to run these tasks or 
queue them for periodic execution. It should be noted that OPCOM is unrelated to the CL1 and 
remains an integral part of each save file where it is used. 

A list of the OPCOM commands is shown below along with their function. For a complete description 
of these commands, see Chapter 5 of the RDOS User's Manual. 

To kill a task: 

<CTRL E>/p j- %KIL, task LP. ) 

To change the priority of a task: 

<CTRL E>| i %PRI, task LP. , new priority ) 

To queue a task for periodic execution: 

<CTRL E>< 1 A QUE, program A hour , minute, second , repeats , interval , {priority} ) 

To ready a task: 

<CTRL E>| \ A ROY, task I. P. ) 

To initiate a task for execution: 

<CTRLE>|p} A RUN, program A f priority } ) 

To suspend a task: 

<CTRL E>|pl ASUS, task LP. ) 

To display the status of a task: 

<CTRL E>|p} ATST, task LP. ) 

Two FORTRAN task calls IOPC and IOPROG, when included in a program, will prepare the OPCOM 
package for entry of the OPCOM commands at the operator console. CALL IOPC, a mandatory call, will 
initialize the OPCOM package, making it accessible to the operator. CALL IOPROG, an optional 
call, will build a program table of task information for reference by the OPCOM commands RUN and QUE 
and need only be used if these commands will be entered at the console. IOPROG must be called for 
each task being described. 

Initializing the Task Operator Communication Module (IOPC) 

CALL IOPC ([program array, number of programs, queue array, number of queues, 
overlay channel,! error) 

where: an empty array of at least 8 tones the number of tasks to be defined. 
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Initializing the Task Operator Communication Module (IOPC) (Continued) 

queue array is an empty array of at least 13 times the number of programs in size. 
Queue array must be declared process global. 

number of queues is the total number of queues required: one for each concurrent RUN 
or QUE OPCOM command. 

overlay channel is opened by a call to . OVOPN. 

NOTE: 1. One TCB must be reserved for the OPCOM package. 

2. When running without a program table (see IOPROG) set the first five arguments 
to zero. 

3. IOPC may be called more than once. Additional calls will remove the previous 
program array. A new array must be given for each call. 

Building a Program Table (IOPROG) 

CALL IOPROG (program name, program number, task identifier, task priority, [overlay node/number, 
conditional load], error, [ASM]) 

'where: program name is the task name. 

program number is the number associated with the program used in RUN and QUE 
commands. 

task identifier is an integer from to 255. 

task priority is an integer from to 255. 

conditional load is meaning conditional, or -1 meaning unconditional. 

error will be 1, indicating successful completion or RDOS error code incremented by 3 
indicating an error. 

ASM is as follows: 

If not included in the calling sequence, the task described is a FORTRAN task and in an 

overlay. 

If included in calling sequence: 

= task described is a FORTRAN task and in an overlay. 

-1 = task described is FORTRAN task and core resident. 

-2 = task described is non- FORTRAN task and in an overlay. 

-3 = task described is non -FORTRAN and core resident. 

NOTE: The only error message return on this call will be ER MEM indicating insufficient memory 

to include program description. 
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SAMPLE TASKING PROGRAM 



The program following is an illustration of a FORTRAN IV program written for a multitask 
environment. The main program contains calls that activate two tasks, TIMPLT and QUAD, 
at priority levels 1 and 2 respectively. The main program then deactivates itself by issuing 
a call to KILL. 

QUAD outputs to the teletypewriter solutions to quadratic equations from input values provided 
by the programmer. TIMPLT prints a counter on the line printer, one count per line, 55 lines 
per page. The counter is incremented once each second, given a real time clock cycle that 
Is set to 100 milliseconds. 
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SAMPLE TASKING PROGRAM (Continued) 



C 

C f-TF.sTu USED IN TEST3 

C 

TASK uliAO 
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A a , I h 

i«« A«A*1 
B.B-A 

C F(X) ■ A*X* t2*R**+C 

IF (CB»*?-4*A*C) ,LT.«5GOTO 10 
C FIND ThE REAL ROHTS 

X)» • e-b+CB**2-4*A*C)**.53/C2*A) 

X?» ■ (-8-(h**2«4*A#C)**.S)/C2*A) 
C OUTPUT THfc COEFFICIENTS AfcD THF SEAL ROOTS 

WkJ.Tt(12, 15 A#B»C, X1R,X5?H 

1 FOKMATf 1H*,«A ■ » , F 1 ft . 4 , « B ■ " t F 1 . 4 , " C ■ " , 
1 F 1 1» . 4 , " X J * " , F I * , 4 , " X ? ■ »»Fi0,43 

CALL FDELYf5B) 
ROTO Jifltt 

M t-^ITEM2,25 A,ft,C 

2 FDPmAT nHi3,«#** COMPLEX ROOTS****', 

1 "A * »,FM.4,«B « ",Fiffl.4,»»C » ",F10.4J 

r. n t o i ?m 

FNJfj 



c 

C ^TESTiB USED IN TESTS 

C 

TA?* TIMPLT 

c set output counter to ZEko 

Jbpi 

►v 8 'A 

1 L^'ES i P 

C REScT Ll^t COUNTER TH 7£RO 

2 LP-iFS * L1MES+! 

CALL FHtLYClO) 
C If BOTTOM OF PAGE, GOTO TOP OF MExT PAGE 
IPCLl-'-'ES.fe0.55)un to t& 
V.R!TE(12U< 

GOTO ? 
!•/■ KKITF(i21f.- 

?ti FORMATCtHl) 

JaJ*l 

IFCJ.tC, 25 CALL AKILLC|P>) 
GuTti i 

EMO 



4-17 



SAMPLE TASKING PROGRAM ( Continued) 



FORTRAN TEST P»0G»*H -- 
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§ T * * T f, , I- f-: 4 I h 
fi X I T F n< U ►* h A T H 

ENt' OF TFS1 * 

• ** tO<*Pi.tX w.jnTS***A ■ t,10MH ■ £*,9000C ■ 29,88i0 

*** r.ilhPl EX MuOTS***« s P.lyPiPB a -1.200J3C ■ 26,500? 

*** CfjHPtEX H)f)TS***A s 3,ls/«PMn ■ -4.30B0C ■ iO,l(i«8» 

*** CO«P| FX RnnTS***4 « 4.i(rr«0hf * -8,4flP*0C ■ 6.6000 

A * S,lPi/»»:f. * -t3."»w^C ■ -12,«e»«Xt ■ 3,3495X2 ■ -0,7025 

1 
2 
3 

4 

fj 
A ■ M^m-iH = -Ift.^K^wr ■ •37,75»"'!5X1 » 4.5665X2 • -1,3534 

7 

*4 

V 

lid 

J 1 

A b 7,!wt-.iK ■ «26.7^^r. ■ -7i.Sfc305?Xl ■ 5,5689X2 » -1,8083 

J 2 

13 

14 

56 
A * H,iw«*HB ■ -3<J.ew«0C ■ -114,4001*1 ■ 6.4769X2 ■ -2,1806 

17 

\H 

2* 

21 
A » 9.1n<*aB s -4S.9HVWC ■ •167,40«iXt ■ 7,3328X2 • -2,5087 

22 
?.■* 

24 
25 

A c !f,!^c;»P ■ -&4,{H-«tiC ■ -231.Sto«l»t ■ 8,1566X2 • -2,8111 

27 
?*» 

29 

an 

3! 

* ■ tf.i'Wti ■ -S5 # t«£»ci<- ■ -Ji7,70i2Xl « 8.S5SM2 ■ -3, §942 
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SAMPLE TASKING PROGRAM ( Continued) 



33 
M> 

A ■ l?.J-»«-i,H ■ -77,2*9,?.z c .397.Pl'.i«!2Xi a 9.7465X2 ■ -3,3663 

39 

41 

A * 13,H-*v*« s -P^.3^ktC ■ -5eo,4tt04Xl ■ 10. 5231X2 ■ -3,63^10 

4 3 
44 
43 

<so 
ft ■ M,tm--..iR * -li)«.4afwC * -618,qh«4X1 ■ U.2916X2 s -3,8873 

*h 

51 

A * 15. J/*** * -11»,!>HP1C ■ -753.^005X1 ■ 12.0538X2 ■ -4.1398 
J* 2 

$.* 

54 

*>5 



5* 

A > ift.j*iri<.R . -!3S.ftPP>lC * -0^5.2007X1 ■ 12.8110X2 » -4,3887 

M 

A ■ 17. It'^uB • -152.7WMIC ■ -I075.B810X1 ■ 13,5644X2 ■ -4,6346 

64 

tn 
k m Jh.l.-.n.jfc ■ -17Pi.»«^"»lC ■ -I?63. 06*1^X1 » 14.3146X2 » -4,8781 

(^ / 

*h 
' ■< 

7i* 

7! 
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SAMPLE TASKING PROGRAM (Continued) 

4 ■ ic,t«'^ b «180,9n<Mr * - 1 479. 001 0*1 ■ 13,0622X2 ■ -5,1198 

7? 
73 
74 
7 5 

76 

4 ■ ?p, li-< ••»'/>* ■ -2if»,pi.'»PiC » -17n3,«^|M*t ■ 15.8K76X2 » -5,5598 

7? 

78 
79 

*1 
4 a 2i.Mft,/.B B -23l,lHP>iC ■ - lP55.?PtJ WX1 ■ 16,5512X2 ■ -5,5986 

P6 

A « 22,iv-fi-P ■ -253.?i">in * -2?30,5Ml?tXl ■ 17,2933X2 ■ -5,8362 

«7 

ft* 

MQ 
p,i 

01 
A s i?3.i./>c<MB * -P76,.ti*PifrC ■ -?K20,oe»lPiXl ■ 18,0340X2 ■ -6,0729 

^2 

A ir 2/J.i/r.tp * -30-.pt. 4k,cnr • -2854. 4*80X1 ■ 18,7736X2 ■ -6,3089 

9 7 

MP 



li-* 

1M 
A * 2 m .\M*-<K ■ -32ft,6w«*2C » -3205,^^20X1 « 19,5122X2 ■ -6,5441 

1*12 

If 4 

1"»5 

A ■ 2*.i«*.)ft ■ -35l»6^c*3C » -3*8? , 7C*2«X t • 20,2508X2 ■ -6,7787 

1"7 
IP* 
l*V 
11" 
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CHAPTER 5 

SWAPPING, CHAINING, AND OVERLAYS 



Program Swapping and Chaining 

During run time, programs may be swapped or chained. In chaining, the currently executing 
program (the caller) issues a call to either FCHAN or CHAIN which causes the program to be 
overwritten in core by another program loaded from disk. The core image of the calling pro- 
gram is not saved. In program swapping, the currently executing program issues a call to 
FSWAP or SWAP which causes the current program's core image to be temporarily saved on 
disk and a new program to be loaded from disk for execution. The saved program can later be 
restored to core by a call to BACK, PBACK, or EBACK and continue its execution from the point 
of suspension. 

The diagram, on page 5-2 illustrates the results of the various program segmentation calls and 
statements concerning swapping and chaining. 

When performing a program swap, the calling program is said to execute at a level higher than 
the called program. (The higher the level of execution of a program, the lower its associated 
level number is. The CL1 is always at level number 0, an assembler or the FORTRAN IV 
compiler is usually at level number 1, etc. ) When a program issues a call to FSWAP, the exe- 
cution level number is incremented, the calling program is saved on disk, and the called program 
is brought into core for execution. When a call to FBACK, BACK, or EBACK is encountered, 
the execution level number is decremented and the calling program is restored to core. If an at- 
tempt is made to nest swaps to a level deeper than four, an RDOS error will result. 

Program swapping allows core images of programs to be saved and called for execution more than 
once during a program's execution. Each program swapped to must contain a complete FORTRAN 
IV program consisting of a main program unit and all subroutines directly or indirectly linked to it. 

to it. 

This chapter is divided into two sections, the first dealing with swapping and chaining. The 
second deals with overlays, defining what an overlay is, and how it is created, deleted, loaded, 
etc. 

Program Swapping (SWAP, FSWAP) 

An executing program can cause Its core image to be temporarily saved on disk and another 
program to be loaded from disk for execution. This is accomplished by Issuing a call to either 
the SWAP routine or to the FSWAP routine; the difference between the two calls being that 
SWAP contains an error location. The format of the two calls is: 

CALL SWAP (filename , error ) 
CALL FSWAP (filename ) 
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LEVEL 0- 



LEVEL 1 





User 



SWAP(C) 



CHAIN(G) 



User G\ 
SWAP(E) 

EBACK(IER) 



LEVEL 2 



User Cl 



SWAP(D) 

BACK 




LEVEL 3 




BACK 



Calls and Statements 

SWAP, FSWAP 

CHAIN, FCHAN 

STOP, EXIT, EBACK (chaining) 

BACK, FBACK, EBACK (swapping) 



Change of Level 

Level n -*■ level n+1 
Level n —** level n 

Level n -+• CLI 
Level n — *• level n-1 



LEX ELS OF SWAPPING AND CHAINING 
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where: filename is the name of the save file to be executed next. 

error is an integer variable which will return one of the error codes upon 
. '.:..;■. :\. :: . .;" i'-..- - ; i;. 

The calling program is suspended and its current status is saved in the current TCB. If the 
execution level of the calling program is n, filename executes at level n + 1 . An example 
of a call to SWAP and a call to FSWAP is: 

CALL SWAP ("ABC", 1ER) 

CALL FSWAP ("A 2") 

Restoring a Swapped Program (BACK, FBACK, EBACK) 

An executing program can cause the last program to be swapped out to disk to be brought back 
into core for a resumption of execution. The executing program will, at that time, be swapped 
out to disk until called for again. Calls to the run time routines BACK, FBACK, and EBACK 
will perform this restoration of the last swapped program to disk. The format of the call to 
BACK (which brings back programs swapped by SWAP or FSWAP) is: 

CALL BACK 

The format of the call to FBACK (which brings back programs swapped by either SWAP 
or FSWAP) is: 

CALL FBACK 

The call to EBACK can be made from either a chained-to or swapped -to program and restores 
the program that is at the next higher level with a standard error return. The restored pro- 
gram is either the last program swapped out or in the case of chaining the next higher level pro- 
gram, e.g. , the CLI. The format of the call to EBACK is: 

CALL EBACK (error ) 

where: error is an integer variable which will return one of the error codes upon completion 
of the call. 



An example ■of a calling sequence is: 
CALL SWAP ("A2", IER) 



CALL 



CALL 



CALL 



CALL 



SWAP ("A3", IER) 



BACK 



SWAPCA4", IER) 



EBACK (IER) 



Al, executing at level 1, swaps in A2 
at level 2. 



A2, executing at level 2, swaps in A3 
at level 3. 



A3 at level 3 swaps to disk and brings 
back A 2 at level 2. 



A2 at level 2 swaps in A4 at level 3. 



A4 at level 3 swaps to disk and brings 
back A 2 at level 2. 
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Program Chaining (CHAIN, FCHAN) 

The currently executing program can cause its core iniage to be overwritten by another program 
on disk when the user issues a call to either the CHAIN routine or the FCHAN routine. The 
formats of the CHAIN and FCHAN calls are: 

CALL CHAIN ( "filename ", error ) 

CALL FCHAN ( "filename" ) 

where: filename is the name of the save file to be executed next. The execution level is 
the same as that of the caller's. 

error is an integer variable which will return one of the error codes upon com- 
pletion of the call. 

An example of a call to CHAIN and a call to FCHAN is: 

CALL CHAIN ("AA", IER) 

CALL FCHAN ("ABC") 
Returning to Level Zero 

The FORTRAN XV statement STOP, or call to the run time routine EXIT, will each cause the 
termination of a task or program and return to level zero, the CLI. 

The format of the STOP statement is: 

STOP { message j 

where: message is an optional message which can be printed upon termination of the 
executing task or program.. 

The call to EXIT has the format: 

CALL EXIT 



OVERLAYS 



Overlays may be used when core is not large enough to accommodate an entire user program. 
During loading of relocatable binaries, two files are created rather than a single save file that would 
have to be brought into core in its entirety for execution. One file is the save file which contains 
the root program to be brought into core. The other is an overlay file that will remain on disk. 
When an overlay is referenced either from the root program or from another overlay that was 
previously brought into core, the overlay will be brought into core. 

The save file contains, in addition to the root program, a directory of the overlay file and a se- 
ries of overlay areas. Each overlay area in the save file corresponds to an overlay segment in 
the overlay file. Each overlay area in the save file represents an area of core that will accom- 
modate a single overlay. Each overlay segment in the overlay file may contain up to 256 
(decimal) overlays. Each overlay area in the save file is large enough to accommodate the 
largest overlay in that overlay segment. Only one overlay of an overlay segment may re- 
side in core at a given time. On the save file, up to 128 (decimal) overlay areas may be 
allocated. They are designated through 127. 

When loading relocatable binaries, those binaries that make up an overlay area are enclosed 

in square brackets in the RLDR command line. Separate overlays of the overlay area are 
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indicated by commas. The format of the RLDR command when overlays are included is: 

RLDR rootname 



t rootname, \ frootname„ ) 
i I ... /- n \ libraries 1 
[ overlay -are a Jj \[ overlay -area ,]j r 



where: rootname is the name of the main FORTRAN program in relocatable binary. 

other rootname s are names of relocatable binaries to become part of the save" file program. 

each overlay -area contains the names of relocatable binaries that are overlays or part of 
of a single overlay. 

To see how save and overlay files are created, compare the following examples of RLDR commands: 



A.SV 



system 



RLDR A B C D E F libraries ,) 



A, B, C, D, E, and F must all be in core during execution. 



system 



A.SV 



system 



RLDR A B [C, D] [E, F] libraries ) 

A.OL 



overlay area 1 Areas to be used for 
overlays during exe- 



overlay area cution. 

j 



B 



system 



Root program in 
core during 
execution 



node 1 



noue 



overlay segment 1 



overlay segment 
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RLDR A B [C, D E, Fj libraries ) 
A.SV 



system 



overlay axea 



system 



) overlay area 



1 



root program 



A.OL 




overlay segment 



node 



Note in the previous example that two or more relocatable binaries may be loaded as a single overlay 
within an overlay area. In this case, D and E are loaded as a single overlay, since there is no 
comma between the relocatable binaries in the command line. 



A.SV 



RLDR A [C, D] B [E, F] libraries.) 
A.OL 



system 



overlay area 1 I 
I 



overlay area 



systc 



overlay segment 1 



node 1 



overlay segment 



node 



Note in the example above that tasks and overlay areas may be interspersed after the main 
FORTRAN program is loaded. 

Within each overlay segment in the overlay file, each overlay occupies an equal area. The area is a 
multiple of 400 octal locations and is large enough to accommodate the largest overlay of the overlay 
segment. For instance, if there are four overlays, OV1, OV2» OV3, and OV4 in an overlay segment: 

1000 8 ---------------- . 

400 8 — — — - 

--.. 



ov: 



OV3 



OV4 



then each overlay will be allotted 1000 octal locations to accommodate the largest overlay: 
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OVERLAYS (Continued) 



OV4 



OV3 



OV2 



OV1 



Overlay segment containing the four overlays 



node 



The overlay file is created as a contiguous file. This allows the operating system to use multiple 
block reads (moving head disk)* for faster loading of overlays. As a result, each overlay within 
an overlay area is the same size. This is not_a restriction on the user, however, as the reloca- 
table loader will automatically adjust each overlay to be equal in size to the multiple of octal 400 
that will accommodate the largest overlay within the overlay area. For better disk space utili- 
zation, though, the user should put overlays of approximately the same size within the same over- 
lay area. 

Overlays maintained in the overlay file are never altered during the execution of a program. 
Each time an overlay is loaded into core in the overlay area, it is in its original form whether 
or not it contains a non- reentrant routine. No part of an overwritten overlay is ever saved. 

Once an overlay file has been loaded and resides on disk, it can be altered only by being reloaded 
using RLDR or, if desired, one or more overlays can be changed using the overlay loader, OVLDR, 
described in a later section. 

Numbering of Overlays within an Overlay File 

Overlays are numbered octally within an overlay file. There may be up to 128 decimal overlay 
segments within an overlay file (numbered - 177g). In a single-task environment there may be 
up to 256 decimal overlays within each overlay segment of the overlay file (numbered - 377g); 
in a multitask environment there may be up to 128 decimal overlays within each overlay segment 
of the overlay file (numbered - 177g). The overlay is referenced by a word that identifies the 
node (overlay area) and the overlay within the area. Thus overlay 1 of area is numbered 1 
while overlay 1 of area 2 is numbered lOOlg. The chart on the following page illustrates the 
numbering scheme in referencing a particular overlay within an overlay file in a single -task 
environment 

In FORTRAN IV, each overlay of each segment is given a unique name in an OVERLAY statement 
(see page 5 - 8), and is referenced in calls by that name, so that it is not necessary to reference 
an overlay by number. 



♦While use of contiguous files enables faster loading from moving head disks, this does not imply 
that overlays are only used when the system configuration includes a moving head disk. 
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Numbering of Overlays Within an Overlay File (Continued) 



Segment Number 


Overlays 


Within This Segment (single 


»-task environment) 







1 


2 


3 


4 , 


375 376 


377 


1 


400 401 


402 


403 


404 . 


775 776 


777 


2 


1000 1001 


1002 


1003 


1004 . 


1375 1376 


1377 


3 


1400 1401 


1402 


1403 


1404 . 


1775 1776 


1777 


4 


2000 2001 


2002 


2003 


2004 . . 


2375 2376 


2377 


126 


77000 77001 


77002 


77003 


"7004 . . 


, 77375 77376 


77377 


127 


77400 77401 


77402 


77403 


77404 • • 


. 77775 77776 


77777 



Overlays in Single or Multiple Task Environments 

Overlays may exist in either single or multiple task environments. In either environment, the 
overlay must be assigned a name in an OVERLAY statement, the overlay file must be opened 
by a call to OVOPN before an overlay file can be loaded into core, and the opened file is closed 
by a call to CLOSE. 

However, in a multiple task environment, overlays and overlay areas can be shared by two or 
more tasks. This requires that checks be made upon loading the overlay to determine whether 
or not the overlay area is already in use. A task waiting for an overlay area that is in use must 
be suspended until the overlay area is released. Thus, different loading routines are called in 
single task and multiple task environments, and in a multiple task environment, a call to a 
routine that releases an overlay after use must be made. 

Features common to both single and multiple task environment are discussed first in sections 
immediately following; then the differing features of single task loading and multiple task loading 
and the release of overlay areas are described. 

Naming an Overlay (OVERLAY) 

In both single and multiple task environments, each overlay must have an overlay name assigned 
to it. Overlay names are assigned in the OVERLAY statement, which has the format: 



where: 



OVERLAY overlayname 

overlayname is the name of an overlay. 



An OVERLAY statement must be the first statement (except for possible COMPILER DOUBLE PRECISION, 
COMPILER NOSTACK, or CHANTASK statements) in one of the program units belonging to an overlay. 
If a single overlay was created from two or more relocatable binaries, each of which contained an 
OVERLAY statement, each overlayname s pecified in these statements is associated with that overlay. 
The overlay can then be referenced by any one of the names. 

An overlay name is an external symbol (like the names of subprograms) and must be unique 
within its first five characters from all other external symbols and all reserved words. Overlay 
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Naming an Overlay (OVERLAY) (Continued) 

names are referenced when loading overlays or releasing overlay areas. Each overlay name 
must be declared EXTERNAL in any program unit in which if is referenced. 

Opening an Overlay File (OVOPN) 

In both single and multiple task environments, the overlay file associated with a program using 
overlays must be opened by execution of a call to the OVOPN routine before any overlays can 
be loaded. The format of the call to OVOPN is: 

CALL OVOPN ( channel , filename , error) 

where: channel is an integer variable whose value specifies the channel on which the overlay 

file is to be opened. 

filename is the name of the overlay file to be opened (this file name should end with 
the extension . OL). 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to OVOPN is: 

CALL OVOPN (JCHAN, "PGM.OL", IER) 

If the value of JCHAN were 7, overlay file PGM. OL would be opened on channel 7, with IER 
receiving the error code upon completion of the call. 

Closing an Overlay File (CLOSE ) 

In both single and multiple task environments, each overlay file is closed in the same way any 
file is closed. An overlay file is closed by execution of a call to the CLOSE routine. The call 
to CLOSE has the format: 

CALL CLOSE (channel, error ) 

where: channel is an integer variable or constant whose value specifies the channel number of 

the overlay file to be closed. 

error Is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to CLOSE is: 

CALL CLOSE (?, IER) 

Loading Overlays in a Single Task Environment (OVLOD) 

In a single task environment, an overlay is loaded fay execution of a call to the OVLOD routine. 
The call has the format: 

CALL OVLOD ( channel , overlay , conditional-flag , error ) 

where: channel is an integer variable or constant whose value is the number of the channel 

on which the overlay file has been opened. 

overlay is the name of the overlay which is to be loaded. 
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Loading Overlays in a Single Task Environment (OVLOD) (Continued) 

conditional-flag is an integer variable or constant whose value indicates conditional 
or ..ncondbional loading. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An unconditional load loads a user overlay regardless of whether the overlay is present in core 
or not. This permits the initializing of non -reentrant code. A conditional overlay load request, 
on the other hand, causes a user overlay to be loaded only if it is not already core resident. 
Conditional loading saves time in some cases but should be used only when overlays are 
reentrant. For variable conditional-flag , the value zero specifies unconditional loading and 
a non-zero value specifies conditional loading. 

Associated with each overlay is an overlay use count (OUC) that contains a value indicating whether 
or not the overlay is core resident. If a conditional load has been specified, the OUC is checked. If 
the OUC contains zero, the overlay may not reside in core or may be core resident but not in use; if 
the OUC contains one, the overlay is core resident. The conditions for loading an overlay depend upon 
the state of the OUC and the conditional flag as given below. 

1. If the load request is conditional (flag^ 0) and if the area is free (OUC=0), the 
OUC is incremented, the overlay is loaded, and the error return is set to 1 to 
indicate the overlay has been loaded. 

2. If the load request is conditional and if the overlay area already contains the re- 
quested overlay (GUC = 1), the overlay remains in the area, the OUC is decremented, 
and the error return is set to 1 to indicate that the overlay has been loaded. 

3. If the load request is unconditional, the OUC is set to 1, the overlay is loaded and 
the error return is set to 1 to indicate that the overlay has been loaded. 

4. If for any reason the overlay cannot be loaded, an appropriate error code is set 
and a return is made to the calling program. 

The conditions specified above are shown in the following chart. 



CALL OVLOD 



No 



OUC = 1 



Is load request Conditional? 
(flag i 0) 



Yes 



Is area free ? 
(OUC = 0) 



No , OUC > 



Yes 



OUC = OUC + i 
Overlay Is Loaded 
Error = 1 



OUC = OUC - 1 



Error = 1 
Overlay is Loaded 
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Loading Overlays in a Single Task Environment (OVLOD) (Continued) 

An example of a call to OVLOD is: 

CALL OVLOD (JCHAN, OV3, IFLAG, IERR) 

Loading an Overlay in a Multiple Task Environment (FOVLD) 

In a multiple task environment, an overlay is loaded by execution of a call to the FOVLD routine; 
the call has the format: 

C.\ LL. ' "' •'■.' !.'.'■ ■ cUeua !. ■■■■■.<. rl..;. , > . mdi' ie:.:.l-:'i. _ . ■. rr ,n 

where: channel is an integer variable or constant whose value is the number of the channel on 

which the overlay file was opened. 

overlay is the name of the overlay to be loaded. 

conditional-flag is an integer variable or constant whose value indicates whether the 
load is to be conditional or unconditional. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

As in the single task environment, the loading of an overlay depends upon the state of the conditional 
flag and the overlay use count (OUC), However, since overlays and overlay areas can be shared 
by two or more tasks, the conditions for loading are somewhat more complex. 

When a task causes an overlay to be loaded, the task is suspended until the loading process is 
completed. When a task tries to load an overlay into an overlay area and cannot because the overlay 
area is already in use, the task is suspended until the overlay area is freed and the desired overlay 
is then successfully loaded. If more than one task is suspended while waiting for an overlay area 
to be freed, the task with the highest priority waiting for the overlay area has its desired overlay 
loaded when the overlay area becomes free. The task then is readied when loading is complete. 

The overlay use count is incremented each time a task requests an overlay load and is de- 
cremented each time a task causes the overlay to be released (see the section on FOVRL). 
Since more than one task can use an overlay, the OUC may be greater than 1. An overlay area 
is only free when the OUC goes to 0. The conditions for loading an overlay in a multiple task 
environment are as follows: 

1. If the load request is conditional (flag fi -1) and if the area is free (OUC=0), 
then the OUC is incremented, the overlay is loaded, and the error return is 
set to 1 to indicate the overlay has been loaded. 

2. If the load request is conditional, and if the area is not free but already contains 
the requested overlay, the overlay remains in the area, the OUC is incremented, 
and the error return is set to 1 to indicate that the overlay has been loaded. 

3. If the load request is conditional and the area is not free and does not contain 
the requested overlay, the caller is suspended until the area is freed. 

4. If the load request is unconditional (flag= -1), and if the area is free (OUC=0), 
the OUC is incremented and the overlay is loaded regardless of whether it is 
core resident or not. 

5. If the load request is unconditional and if the OUC has not gone to zero freeing 
the area, the calling task is suspended until the area becomes free. 
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Loading an Overlay in a Multiple Task Environment (FOVLD) (Continued) 

6, If for any reason the overlay cannot be successfully loaded, the error indicator will be 
set to the appropriate error code. 

The conditions specified above are shown in the following flow chart. 



CALL FOVLD 



No 



Is load conditional? 
(flag 1 0) 



Yes 



Is Area Free? 



Ah 



No 



Is area free ? \ No 

(OUC =0) / 



Yes 



Overlay is Loaded 
OUC = OUC + 1 
Error = 1 



No 



<; 



requested overlay 
occupying area ? 



Yes 



OUC = OUC +1 
Error = 1 



Caller is suspended until 
area is freed 



When a task causes an overlay to be loaded, the task is suspended during the loading process 
as it would be for any other I/O operation. For those cases in which no loading occurs, and the 
task does not have to wait for an overlay area to become available, the task is not suspended. 

An example of a call to FOVLD is: 

CALL FOVLD (ICHAN, IOV, ICON, FSR) 

Releasing an Overlay Area (FOVRL ) 

All overlay loads (FOVLD) in the multiple task environment must eventually be paired with an 
overlay release or the area will be reserved indefinitely. An overlay area can be released from 
outside of the overlay by the execution of a call to the FOVRL routine. The call to FOVRL has 
the format; 



where: 



CALL FOVRL ( overlay , error ) 

overlay is the name (or any one of the names) of the overlay resident within the 
overlay area to be released. 



error is an integer variable which will return one of the error codes upon completion 
of the call. 
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Releasing an Overlay Area (FQVRL XContinued) 

Execution of a call to FOVRL causes the OUC for that overlay area to be decremented. (The 
overlay area is only freed when OUC goes to zero. ) If an overlay other than the one resident in 
the overlay area is named by overlay , an error condition results and the overlay area is not 
released. An example of a call to FOVRL is: 

CALL FOVRL (AOVLY, IER) 

Releasing an Overlay (OVKIL, OVKIX, OVEXT, OVEXX) 

Overlays may be released from inside the overlay area, either from the routine in which 
r:.(. i.vc rk'.v v/a- ;-.:. .. <. ..". .,r ;'rw sm l orl<. r r ■vrivx :>. ri.L. ':\:\. ■:■•• l rinv. 

A call to OVKIL can be made from the routine in which the overlay was named (OVERLAY 

statement) and causes the overlay to be released and the task containing the overlay to be killed. 
The format of the call is: 

CALL OVKIL ( overlay ) 

where: overlay is the name of the overlay (specified in an OVERLAY statement). 

A call to OVKIX is made from a routine outside that in which the overlay was named. The 
OVKIX routine causes the overlay to be released and the task containing the overlay to be killed. 
The format of the call to OVKIX is: 

CALL OVKIX ( overlay ) 

where: overlay is the name of the overlay. 

A call to OVEXT can be made from the routine in which the overlay is named. It causes the 
overlay to be released and provides a return location. The format of the call is: 

CALL 0\ EXT i ovi ri ■■ , t ::M mil -Libel ) 

where: overlay is the name of the overlay. 

external -label is the external label to which return is made upon completion of the call. 

A call to OVEXX is made from outside the routine in which the overlay is named. OVEXX 
causes the overlay to be released and provides a return location. The format of the call is; 

CALL OVEXX ( overlay , external -label ) 

where: overlay is the name of the overlay to be released. 

external -label is the external label to which return is made upon completion of 
the call. 
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It is possible to replace one or more overlays within an overlay file. To do so, a file of replacement 
overlays must be loaded using the overlay loader, which is invoked with the command OVLDR. When 
the replacement file of overlays has been loaded, overlays within the current overlay file may be re- 
placed by overlays in the replacement file, using the command "REPLACE, The replacement of over- 
lays is described in Appendix D in thessection, OPERATION UNDER RDOS. 
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CHAPTER 6 
REAL TIME CLOCK AND CALENDAR 



Systems with a Real Time Clock (RTC) maintain a system clock and calendar for scheduling 
task activities on a time-of-day basis. Tasks may obtain or set the correct time in seconds, 
minutes, and hours or the current date in month, day and year. Tasks may also synchronize 
their activities with the real time clock for periods of time as short as one millisecond each. 

Six calls are available to permit the system to keep track of the time of day and current date. 
Dates are alwavs referenced as month /day /year. The time is always given using a 24 -hour 
clock. The six calls are: 



CALL FSTIM - set the time of day 

CALL STIME - set the time of day 

CA LL TIME - get the time of day 

CALL FGT1M - get the time of day 

CALL DATE - get the current date 

CALL SDATE - set the current date 

Setting the Real Time Clock (FSTIM ) 

The real time clock can be set using the run time routine FSTIM. Users may access the real 
time clock in both single and multiple task environments. The format of the call to FSTIM is: 

CALL FSTIM ( hour , minute, second ) 

where: hour is an integer variable or constant in the range to 23. 

minute is an Integer variable or constant in the range to 59. 

second is an integer variable or constant In the range to 59. 

If an attempt is made to set a time outside the specified legal range, a run time error occurs. 
The clock used is a 24-hour clock. An example of a call to FSTIM is: 

CALL FSTIM (7, 25, 11) 

Setting the Real Time Clock (STIME) 

A call to the STIME routine allows the user to set the Real Time Clock. The format of the call 
is: 

CALL STIME ( array , error ) 

where: array i s a three-element integer array specifying the time to be set in the order 

of hours, minutes, and seconds. 
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error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to STIME is: 

e.\h; >vr.:: tb.h. i: ;-i 

Getting the Time of Day (TIME) 

The time of day can be obtained in the form of a three-element array by a call to TIME which has 
the format: 

C. '.hi. ;i.V.r (T[:..L -,.n\o , iimr.) 

where: time -array is the name of a three -element integer array that is set equal to the time. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to TIME is: 

CALL TIME (ITAR, IER) 

Getting the Time (FGTIM) 

The real time clock can be accessed to obtain the time using the routine FGTIM. The format of 
the call to FGTIM is: 

CALL FGTIM ( hour , minute, second ) 

where: hour , minute, and second a re integer variables which will return the current hour, 

minute and second. 

The current time will be given in terms of a 24 -hour clock. An example of a call to FGTIM is: 

CALL FGTIM (IHR, IMEN, ISEC) 

u-:; :-., - • <■ , :\ ij . V, . , 

The date can be obtained in the form of a three -element array indicating month, day, and year 
using a call to the DATE routine, which has the format: 

CALL DATE ( date-array , error ) 

where: date -array is the name of a three-element integer array that is set equal to the date. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

The first, second, and third elements of array date -array are set equal to the date expressed as 
month, day, and year. An example of a call to DATE is: 

CALL DATE (1AR, IER) 
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SctTine rhc Date (SPAT.-) 

The user can set the date by issuing a call to the SDATE routine which has the format: 

CALL SDATE ( array , error ) 

where: array is a three -element integer array specifying month, day and year in that order, 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to SDATE is: 

CALL SDATE (IAR, IER) 

User/System Clock Commands 

The user may execute a call to the routine DUCLK to define a user clock and a call to RUCLK 
to remove a user clock. The user clock is a software clock that is controlled at predefined 
intervals by the operating system clock. This user clock allows control to be given to a user- 
specified routine when each predefined interval lapses. A call is provided to GFREQ which , 
permits the user to examine the Real Time Clock frequency. It is assumed that the user who 
is considering the definition of a user clock is familiar with the Real Time Disk Operating 
System. The following descriptions of calls to run time routines concerning the user/system 
clock commands should be read in conjunction with the section User/System Clock Commands 
in the RDOS manual (093-000075). 

Define a User Clock (DUCLK) 

A call to the DUCLK routine permits the definition of a user clock. When an interrupt is 
generated by the user clock, the environment becomes frozen as is, and control passes to a 
user-specified routine at a user-defined location, (This routine cannot be a FORTRAN routine. 
Furthermore, no system or task calls may be issued from this routine, with the exception of 
. UCEX and . IXMT . ) The format of the call to DUCLK is: 

CALL DUCLK (ticks , name , error ) 

where: ticks is an integer variable or constant specifying the integer number of system 

RTC cycles which are to elapse between each user clock interrupt. 

name is the name of a non- FORTRAN routine to which control is passed upon- 
an interrupt and which must have been previously defined, 

error is an integer variable which will return one of the error codes upon 
completion of the call. 

In unmapped systems, the task call .UCEX must be issued to exit from a user clock routine. 
Refer to the RDOS User's Manual for further information concerning the task call . UCEX. 

An example of a call to DUCLK is: 

CALL DUCLK (100, IROR, IER) 

• • •• ' '-' U- U' .' u-'..-' i 

To remove a previously defined user clock from the system, the user may issue a call to the 
RUCLK routine. The call has the format: 

CALL RUCLK 
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Remove a User Clock (RIJGLK) (Continued) 

The user clock must have been previously defined before it may be removed. 

Examine the System Real Time Clock Frequency (GFREQ) 

A call to the GFREQ routine permits the user to examine the Real Time Clock frequency. The 
format of the call is: 

CALL GFREQ ( variable) 

where: variable is an integer variable which will return the frequency of the Real Time 

Clock, either: 

- no real time clock in system 

1 - 10 HZ 

2 - 100 HZ 

3 - 1000 HZ 

4 - line frequency (60 cycles per second) 

5 - line frequency (50 cycles per second) 

An example of a call to GFREQ is : 
CALL GFREQ (IVAR) 
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CHAPTER 7 
FOREGROUND /BACKGROUND PROGRAMMING 



INTRODUCTORY CONCEPTS 

As discussed in Chapter 4, a multitasking environment increases the potential utilization of 
system resources. Multitask environments were understood to exist in a single program 
environment, and a program was considered to be an orderly collection of tasks. 

To increase system utilization still further, it is possible to have two programs sharing system 
resources concurrently, each with its own single or multi-tasking scheme. This sharing of 
system resources between two concurrently operating programs is called dual-programming. 

In dual-programming, one program is designated as operating in the background, the other as 
operating in the foreground. The two programs are independent of each other, each containing 
its own Task Scheduler. The two programs may have equal priority, or the foreground program 
may be designated as having the higher priority of the two. When the foreground program has 
the higher priority, control is passed to the background program only when there are no ready 
tasks in the foreground. 

Although the foreground and background programs are independent of each other, they may 
communicate with each other. This is accomplished by defining a communications area within 
each program to be used in sending and receiving these messages. 

Foreground/Background Considerations in an Unmapped Environment 

Systems lacking the MMPU use software memory partitions to separate foreground and background 
program areas. These boundaries are user -defined at load time, using switches. 

in unmapped systems it is useful to include a user -written assembly language program, FHMA, to 
specify the highest memory location for a FORTRAN program in the background partition. This is 
necessary in determining the size of the run time stack and in insuring ample memory space for a 
foreground program. FHMA is loaded just before the run time library and has the source code: 



.TITL FHMA 
. ENT FHMA 
FHMA = (n) 

. END 



where n is a value between NMAX and the highest memory ad- 
dress available below RDOS 



In an unmapped, background -only environment, memory can be represented as: 



RDOS 



Unused address space 



User program and task 
scheduler ,, 



RDOS 



) 



top of memory 

HMA (highest unused memory address) 
FHMA may be in this range 
NMAX (first location above loaded program; 



-16 
■0 



FHMA should be set to an address in the range between NMAX and HMA. Then FHMA to HMA will be 

reserved for the foreground. 



7-1 



Foreground/Background Considerations in an Unmapped Environment (Continued) 

The RLDR command line (and ail of its uses) is described in Appendix D, OPERATING PROCEDURES. 

Foreground/Background Considerations in a Mapped Environment 

Nova 840's, which can include a DGC 8021 Memory Management and Protection Unit (MMPO), provide • 
an absolute hardware protection to separate foreground and background partitions. Foreground save 
and overlay files in a mapped environment are built in the same way that save and overlay files are 
built in a single program environment, since an entire page zero and NREL memory is available for 
both programs. 

_< :_■ ; - . ;.:'. • . /.-■ ' : • r :.l> 

The following calls to be used in foreground/background programming are applicable to both mapped 
and unmapped systems, except for EXBG, which is used only in a mapped environment. 

Load and Execute a Foreground Program 

To load and execute a user program in the foreground, the user can issue a call to EXFG. This call 
can be made only from a background program; it is written in the following format: 

CALL EXFG ( filename , priority , error ) 

where: filename is the name of the file to be executed in the foreground. 

priority is the integer variable or constant that indicates the priority of the new foreground 
program, either: 

- foreground is of higher priority than background. 

1 - foreground and background are of the same priority. 

error is an integer variable that returns one of the error codes on completion of the call. 

If the partition requirements set in the RLDR command line would cause any portion of the background 
program area to be overwritten, the foreground program is not loaded. An example of an EXFG call is: 

CALL EXFG ("PROGi", i > 1ER) 

Checkpointing - Load and Execute a Background Program (EXBG) 

Checkpointing is the practice of suspending one background program (the checkpointed program) 
temporarily so that a new background program can be loaded and executed. Only a foreground program 
may issue the checkpoint call, EXBG, and the call may only be issued in a mapped environment. To 
checkpoint a background program, it must be checkpointable, i.e. , the program must perform no 
QTY I/O and must make no calls to RDOPR, DUCLK, FINTD, WAIT, or FDELY. 

The checkpointed program is restored to execution when the new background program has been executed 
or when either a CTRL A or CTRL C keyboard interrupt is detected. There may be only one check- 
pointed program; nested checkpoints are not allowed. 
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The call to EX13G has the format: 

C',11 i-'.\,i .• ■•;:■ :i ij-.y.- , : n rif. , : t t i 

where: filename is the name of the file to be executed in the background. 

priority is an integer variable or constant that indicates the priority of the new background 
program, either: 

- same priority as present background program. 

i - foreground and background are of the same priority. 

error is. an integer variable that returns one of the error codes upon completion of the 
call. 

An example of a call to EXBG is: 

CALL EXBG ("MAIN6", 0, IER) 

See if a Foreground Program is Running (FGND) 

A call can be made to the FGND routine from a background program to determine whether or not a 
foreground program is currently running in the system. The call has the format: 

CALL FGND (foreground) 

where: foreground is an integer variable which returns a value of or 1: 

- a foreground program is executing 

'■ - •■■ '■■ n\ \ ;.'-..:■>. : ;•■ <. r..i,v. .•■ a r . - i-citi;-,;.' 

An example of a call to FGND is: 

CALL FGND(IRUN) 

TX M?v .; i '.a. v.-, .■r....-.-ui. ■ :•..- .'. .- .. ilGMb. 

A call to the routine ICMN permits an area to be defined within a user program's address space which 
will be used for sending or receiving messages to or from another user program. The foreground and the 
background may each define one communications area. The call to ICMN has the format: 

CALL ICMN (array , length , error ) 

where: array is an array specifying the communications area. 

length is an integer variable or constant specifying the size of the communications 
area in words. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to ICMN is: 

CALL ICMN (A, 10, IER) 
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Write a Message (WRCMN) 

A call to the routine WRCMN causes a message to be written by one program, either in the fore- 
ground or background, into the other program's communications area. The message that is sent 
may originate from anywhere within the sender program's address space. The format of the call 
to WRCMN is: 

CALL WRCMN (array, start word, number of words , error ) 

where: array is an array specifying the origin of the message to be sent to the other program's 
communications area. 

-tart word is an integer constant or variable specifying the word offset within the com- 
munications area to receive the message. 

number of words is an integer constant or variable specifying the number of words to be sent. 

error is an integer variable which will return one of the error codes upon completion of the 
call. 

Note that start word represents an offset in words. For example, an offset of five will be the fifth 
element of an integer array but will be the first word of the third element of a real array. 

An example of a call to WRCMN is: 

CALL WRCMN (1AR, 6, 1NUM, 1ER) 

Read a Message (RDCMN) 

A call to the RDCMN routine causes a message to be read by one program, either in the foreground 
or background, from the other program's communications area. The message may be received 
anywhere within the receiving program's address space. The format of the call to RDCMN is: 

CALL RDCMN (array , start word , number of words, error ) 

where: array is an array specifying the destination of the message sent from the other program's 
communications area. 

start word is an integer variable or constant specifying the word offset within the com- 
munications area where the message originates. 

number of words is an integer constant or variable specifying the number of words to be 
read. 

error is an integer variable which will return one of the error codes upon completion of 
the call. 

Write an Operator Message (WROPR) 

A call to the WROPR routine causes an output string to be written from either the foreground or 
background program areas to the system console, $TTO. The message consists of an ASCII string, 
less than or equal to 129 characters in length including the required terminator (carriage return, 
form feed, or null). The system will prefix two exclamation characters and the alphabetic B to 
the text string, or two exclamation characters and the alphabetic F to the text string. 

B = originating from the background 
F = originating from the foreground 
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Write an Operator Message (WROPR) (Continued) 

The format of the call to WROPR is: 

CALL WROPR (array , error ) 

where: array is the name of the array containing the text string to be written to $TTO. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

The operator messages (text strings) output on the console after execution of this call will 
appear as follows: 

HP text string J or H Btext string ) 

WROPR must not be used if RDOS calls .TRDOP or .TWROP are used or if the RDOS OPCOM 
package is used. 

An example of a call to WROPR is: 

CALL WROPR (IAR, IER) 

Read an Operator Message (RDOPR) 

A call to the RDOPR routine causes an operator message to be transmitted from the system console, 
STTI, to either the foreground or the background program. The first character in this message 
must be a CTRL E character (this is echoed as an exclamation character); the second character 
must be either of the alphabetics F or B. These alphabetics (F and B) indicate which program is to 
receive the message: 

B = background program is the receiver 
F = foreground program is the reciever 

If some character other than F or B is typed, no further text string is accepted until a F or B is 
typed. If the user should try to transmit an unsolicited message (i. e. , one for which there is no 
outstanding read operator message call), the bell is sounded when CTRL E is depressed. The 
last character in the message string must be the carriage return terminator. The entire message 
string (including the terminator) can be up to 132 characters in length. The format of the call to 
RDOPR is: 

CALL RDOPR (array , nchar , error ) 

where: array is an integer array element specifying the location of the message area. 

nchar is an integer variable returning the number of characters transferrred (including 
the terminator). On an error, nchar is set to 0. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 
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punch ($PTP, $PTP1) 3-1 
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HIPBOOT 2-6 

HOLD routine 4-8 

ICMN routine 7-3 
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KILL routine 4-11 
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load 
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APPENDIX A 
FORTRAN IV SUMMARY 



The following pages contain a summary of each call to a run time routine which can be made under 
FORTRAN IV and each statement which is a part of the FORTRAN IV programming language. Beside 
each statement or call description is a row of five boxes specifying respectively: 

whether or not the call/statement is used under RDOS 
whether or not the call/statement is used under RTOS 
whether or not the call/statement is used under SOS 
a page reference within the manual 

An X signifies a positive answer as to whether or not a particular call/statement can be used under 
a particular operating environment. The page reference column is divided into two sections, the 
first corresponding to PART I and the second corresponding to PART II. 

A summary of the format descriptions used is as follows: 



upper case letters 



lower case letters 



£ 3- 

( ) 

( ) 



are essential parts of the format description and must be used 
exactly as they appear. 

are variable portions of the format descriptions; the user, when 
writing to correspond to the format, will insert his own variable 
name, device name, file name, etc. 

equals sign is a necessary part of the format description 

comma is an argument delimiter and is a necessary part of the 
format description. 

broken square brackets indicate optional portions of the format 
description. 

parentheses are used to delimit all arguments from the command 
word. (They are a necessary portion of the format description. ) 

quotation marks are used as ASCII string delimiters and are 
necessary parts of the format description. 

braces are used to denote alternate portions of the format 
description. 

three dots indicate that portions of the format description have 
been omitted. When they appear, the user should readily see 
what portions of the format are missing. 



A-l 
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Statement Format 


RDOS 


RTOS 


SOS 


Page Ref. 
Part I 


Page Ref. 
Part II 


functionname (argument, argument, ...» argument) = expression 
assigns the value of an expression to a specified function. 


X 


X 


X 


9-1 




variable = expression 

assigns the value of an expression to a specified variable. 


X 


X 


X 


4-1 




ACCEPT list 

values appearing within the list of the ACCEPT statement are 
input from the console. 


X 


X 


X 


6-20 




ASSIGN statementnumber TO variable 

causes a subsequent assigned GOTO statement to transfer control to 
the statement number specified within the ASSIGN statement 


X 


X 


X 


5-2 




BLOCK DATA 

defines a subprogram which contains only DIMENSION, DATA, 
COMMON, data-type, and EQUIVALENCE statements. 


X 


X 


X 


8-2 




CALL subroutine (argument, argument, . . . , argument) 

references a specified subroutine, replacing dummy 
arguments with actual arguments. 


X 


X 


X 


5-3 




CALL subroutine 

references a specified subroutine. 


X 


X 


X 


5-3 




CHANT ASK number -of -channels, number -of -tasks 

ously active at one time. 










4-3 


COMMON name . , . name 












COMMON blOCt' -mmp /I icf c-f nq-n»c /ei, ri .-e _n-:itiT/i /licr '-f r-ip-po 








7-4 
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RDOS 


RTOS 


SOS 


Page Red. 
Part I 


Page Ref. 
Part 11 


COMPILER DOUBLE PRECISION 

forces all REAL variables and constants to DOUBLE PRECISION 
and ail COMPLEX to DOUBLE PRECISION COMPLEX. 


X 


X 


X 


7-3 




COMPILER NOSTACK 

causes all non- COMMON variables and arrays to be placed in a 
fixed location in memory rather than on a run time stack. 


X 


X 




7-7 




COMPLEX variable, variable, ...» variable 

specifies single precision complex variables and /or arrays. The 
arrays may be dimensioned in die statement. 


X 


X 


X 


7-3 




CONTINUE 

causes continuation of the normal execution sequence. 


X 


X 


X 


5-4 




DATA variable -list/constant-list/. . . variable -list/constant -list/ 

defines initial values for variables and array elements. 


X 


X 


X 


8-1 




DIMENSION arrayname (subscript bounds), . . . .arrayname 

(subscript bounds) 

specifies die subscript bounds of arrays for allocation of 
storage to die arrays. 


X 


X 


X 


7-1 




DO statementnumber variable = integer, to tege r f> integer 1 ) 


X 


X 


X 


5-5 




DOUBLE PRECISION variable, variable...., variable 


X 


X 




7-3 




specifies doable precision variables and /or arrays. The 




X 


X 




7-3 




specifies double precision complex variables and/or arrays. The 


_ .: ... . _ ^ _ . __ 


X 


X 


X 


6-24 
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Statement Format 


RDOS 


RTOS 


SOS 


Page Ref. 
Part 1 


Page Ref, 
Part II 


EQUIVALENCE (list -of -names ), (list-of -names), . . . (list-of -names) 

determines shared storage for variables and /or arrays. 


X 


X 


X 


7-5 




EXTERNAL subprogram -name, . ... subprogram -name 

specifies subprograms as external to die program unit in 
which die specification is made. 


X 


X 


X 


7-6 




statementmimber FORMAT (specification) 

allows for the formatting of input and output data according 
to a specification. 


X 


X 


X 


6-6 




type FUNCTION name (argument, . . . , argument) 
defines a function subprogram. 


X 


X 


X 


9-2 




GOTO statement -number 

causes transfer to a specified statement number. 


X 


X 


X 


5-1 




GOTO variable 

causes transfer to die address which is die current value 
of the specified variable. 


X 


X 


X 


5-1 




GOTO (statement-numberl, statement -number2, . . . statement- 
numbern), variable 

causes possible transfer to one of several statement numbers 
depending on die value of die specified variable. 


X 


X 


X 


5-1 




GOTO variable (statement-numberl, statement-number2, . . . , 

statement -numbern) 

causes transfer to one of several possible statement numbers 
depending on the value of the specified variable after the last 
execution of an ASSIGN statement. 








5-2 






X 


X 


X 


5-3 




depending on the specified logical expression benig true or false. 
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Statement Format 






SOS 


Page Ref. 
Part I 


Page Ref. 
Part 11 


RDOS 


RTOS 


IF (expression) statement-numberl, statement -number2, 
statement -numberS 

causes transfer to one of three statement numbers depending 

on the value of the specified expression. 


X 


X 


X 


5-3 




INTEGER variable, variable, . . , variable 

specifies integer variables and/or arrays. Tee arrays may be 
dimensioned in the statement. 


X 


X 


X 


7-3 




LOGICAL variable, variable, . . . variable 

specifies logical variables and /or arrays. The arrays may be 
dimensioned in the statement. 


X 


X 


X 


7-3 




OVERLAY overlayname 
names an overlay. 


X 








5-8 


PARAMETER variable = constant, . . . variable = constant 

assigns values to symbolic names, which may then be used 
like constants throughout die program. 


X 


X 


X 


2-1 




PAUSE f string j 

causes die program to cease execution with an optional 
message printed at the console. 


X 


X 


X 


5-5 




READ (channel) f list-of -variables ^ 

- h A • ; am., format) f list of -variables ^ 

reads from a device or file the data associated with the vari- 
ables in die list; formatting may be preset (unformatted I/O) 

or in accordance with a format specified by die user. 


X 




X 


6-1 




READ (channel, f format, ^ /ERR} = statementnumber) flisel 

\EKDf 

READ (cTarinel, f format, ^ /ERR) = statementnumber, 

lENDf 








fii-7 % 
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Statement Format 


RDOS 


RTOS 


SOS 


Page Ref. 
Part I 


Page Ref. 
Part II 


READ BINARY (channel) list 

transfers binary data from an external medium. 


X 


X 


X 


6-20 




REAL variable, . . , , variable 

specifies real variables and/or arrays. The arrays may be 
dimensioned in the statement. 


X 


X 


X 


7-3 




RETURN f variable i 

indicates the logical end of a subprogram, by default, causing 
a normal return when executed. Optionally, die user may cause 
an abnormal return. 


X 


X 


X 


5-4 




REWIND channel 

causes the file associated with the specified channel to be 
positioned at the initial record. 


X 


X 


X 


6-23 




STOP f string =\ 

causes an unconditional termination of a program's (or a 
task's) execution, and optionally causes a message to be 
printed at the console. 


X 


X 


X 


5-5 




SUBROUTINE name (argument, . . . , argument) 
defines a subroutine subprogram unit. 


X 


X 


X 


9-8 




TASK taskname 

assigns a name to a task program unit. 


X 


X 






4-4 


TYPE list 

causes output of the values of the variables specified in 
the statement. 


X 






6-20 




WRITE (channel} f list-of- variables 1 

WRITE (channel, format) f list -of -variables 'j 

— — — . _ , — _^_ , „_ — _ , 


X 


X 


X 


6-1 
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RDOS 



RTOS 



SOS 



Page Ref. 
Part I 



Page Ref. 
Part II 



WRITE ( channel, f format, j (END) = statementnumber ) f lise j 

(ERR) 

WRITE ( channel, f format, j (END) = statementnumber , (END) = 

I ERR/ (ERR) 

statementnumber p listj 

writes information (as in WRITE description on previous page) 
and also allows the user to gain control after an end -of -file or 
after an I/O error has been detected. 



WRITE BINARY (channel) list 



transfers data in binary to an external medium. 



6-23 



6-20 
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Call Format 


RDOS JRTOS 


jsos 


Pa; . N '« 7 bef, 
iTr ; ,. 


CALL ABORT (id, error) 

causes termination of the task with the specified identification 

number. 


X 


" 






4- 


CALL AKILL (priority -number) 

terminates all ready or executing tasks with the 

specified priority number. 


X 


X 






1 

i 

4 -.11 

! 


CALL APPEND (channel, filename, jmode,} error f , size ty 

(array ,1 
opens a file for appending 


X 


X 






3-12 


CALL ARDY (priority-number) 

causes all tasks of a given priority number to be readied. 


X 


X 






4-10 


CALL ASSOC (task, id, priority -no. , error f, IAS M^ 

associates a task with an identification number, 


X 








4-5 


CALL ASUSP (priority -number) 

causes ail tasks of a given priority number to be suspended. 


X 


X 






4-9 


CALL BACK 

causes the last program that was swapped out to disk to be 
restored to core. 


X 








5-3 


CALL BCLR (word, position) 


X 


X 


X 


9-10 




CALL BOOT (device, error) 


X 








2-6 


PA f I DC p "T" (\% jf% w-| rwty " | f | f\*j \ 








TiO 


~, 


sets a single bit in a word to one. 


D1R (name, error) 










2-5 


creates a subdirectory with a specified name. 


CALL CFILW (filename, type, f.sizety , error) 


X 






1 


- 





FORTRAN IV RUN TIME CALL SUMMARY 



Call Format 


RDOS 


RTOS 


SOS 


Page Ref. 

Part I 


Page Ref, 
Part 11 


CALL CHAIN (filename » error) 

causes the current program's core image to be overwritten by 


X 








5-4 


CALL CHLAT (channel, attributes, error) 

causes a change, addition, or deletion of link file access attributes. 


X 








3-9 


CALL CHNGE (identification, priority -number, error) 

causes the priority number of a specified task to be changed. 


X 








4-10 


CALL CHRST (channel, start-word) 

restores previously saved channel status to enable rereading and 
rewriting of records. 


X 






6-25 




CALL CHSAV (channel, start-word) 

saves the status of a channel to enable rereading or rewriting 
of records. 


X 






6-24 




CALL CHSTS (channel, array, error) 

returns a copy of die current directory status information 
for a file on the specified channel. 


X 


X 


X 




3-6 


CALL CLOSE (channel, error) 


X 


X 


X 




3-13,5-9 


CALL CPART (name, size, error) 


X 








2-5 


creates a secondary partition. 


CALL DATE (date -array, error) 


X 


X 






6-2 


CALL DELETE (filename) 










3-5 


CALL DFILW (filename, error) 

deletes an RDOS disk file. 










3-5 


CALL DIR (directoryname, error) 


X 








2-3 


chancres the current default directory device. 
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Call Format 


RDOS 


RTOS 


SOS 


Page Ref. 
Part I 


Page Ref. 
Part 11 


CALL DLINK (namel, f name2, ~j error) 

creates a link entry in the current directory to a file in 
another directory. 


X 








3-6 


CALL DUCLK (ticks, address, error) 

permits the definition of a user clock. 


X 


X 






6-3 


CALL DULNK (name, error) - 

deletes a link entry in the current directory. 


X 








3-6 


CALL EBACK (error) 

returns the last swapped program back to disk, or if rfiere is no 
such program, causes return to level - the CLI. 


X 








5-3 


CALL EQUIV (name!, name2, error) 

assigns a new name to the multiple file device. 


X 








3-4 


CALL EXBG (name, priority, error) 

loads and executes a program in the background. 


X 








7-3 


CALL EXFG (name, priority, error) 

loads and executes a program in the foreground. 


X 








7-2 


CALL EXIT 

causes termination of executing task. 


X 


X 






5-4, 4-11 


CALL FBACK 

causes the last program that was swapped out to disk to 

be restored to core. 


X 








5-3 


CALL FCHAN (filename) 

causes current program's core image to be overwritten by 
anodier program loaded from disk. 


X 









5-4 


CALL FCLOS (channel) 

closes a file on a specified channel and frees the channel. 


X 


X 


X 




3-13 


CALL FDELY (number -of -pulses) 

suspends a task for a specified amount of time. 


X 


X 
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Ami 



FORTRAN IV RUN TIME CALL SUMMARY 



Call Format 


RDOS 


RTOS 


SOS 


Page Ref. 
Part 1 


Page Ref. 
Part 11 


CALL FGND (foreground) 

determines whether or not a foreground program is running. 


X 








7-3 


CALL FGTIM (hour, minute, second) 
gets the current time. 


X 


X 






6-2 


CALL FIXRV (device -code; 

removes a user interrupt device from the system interrupt 

vector table. 


X 


X 






2-10 


CALL FLNTD (device -code, dct) 

specifies a device which is capable of generating interrupt 
requests. 


X 


X 






2-9 


CALL FOPEN (channel, filename f, "B"^ f, recordbytesi ) 

assigns a specified channel to a file (device) and opens that 
file or device. 


X 


X 


X 




3-11 


CALL FOVLD (channel, overlay, condition -flag, error) 
loads overlays in a multiple task environment. 


X 








5-11 


CALL FOVRL (overlay, error) 

releases a specified overlay. 


X 








5-12 


CALL FQTASK (overlayname, task, array, error f, type L 

causes periodic execution of a task or overlay. 


X 








4-6 


CALL FSEEK (channel, recordnumber) 

positions a random file to a given record. 


X 






6-24 




CALL FSTAT (channel, attributes, error) 

sets or changes die attributes of a file. 


X 








3-9 


CALL FSTIM (hour, minute, second) 
sets the real time clock. 


X 


X 






6-1 


CALL FSWAP (filename) 

causes the current program's core image to be saved on 
disk, and another program to be loaded from disk. 


X 








5-1 
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CALL FTASK (taskname, error -return, priority -number f, IASM)) 
activates a task by task name. 


X 


X 






4-4 


CALL GC1N (array) 


X 


X 






3-10 


CALL GCOUT (array) 

obtains the current output device name. 


X 


X 






3-10 


CALL GDIR (array, error) 

returns the name of the current default directorv/device name. 


X 








2-4 


CALL GFREQ (variable) 

examines the Real Time Clock (RTC) frequency. 


X 


X 






6-4 


CALL GSYS (array, error) 

gets the name of the current system. 


X 








2-6 


CALL GTATR (channel, attributes, error) 
examines the attributes of a file. 


X 








3-8 


CALL HOLD (identification, error) 

causes the task with the specified identification number to 


X 


X 






4-9 


CALL ICLR (word, position) 

sets a single bit in a word to zero. 


X 


X 


X 


9-10 




CALL ICMN (array, length, error) 

defines an area in a program's address space which will 
be used for sending and receiving messages. 


X 








7-3 


CALL 1NIT (directoryname, type, error) 
causes a directory to be initialized. 


X 


X 






2-3 


CALL IOPC ([program-array, number of programs, queue array, 


X 









4-14 


number of queues, overlay channel,] error) 


Initializes OPCOM package. 
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CALL IOPROG (program name, program number, task Identifier, 

v\e :rr\ , _ v it r -.ode/number, conditional load], 
error [ASM!) 

builds a program table of task information. 


X 








4-15 


CALL ISET (word, position) 

sets a single bit in a word to one. 


X 


X 


X 


9-10 




CALL IT ASK (taskname, id, priority -number, error f, IASM}) 

activates a task and associates an id number with the task 
name. 


X 


X 






4-4 


CALL KILL 

kills the executing task. 


X 


X 






4-11 


CALL MDIR (array, error) 

obtains the current master device name. 


X 








2-5 


CALL MTDIO (channel, commandword, I/O-array, status, error 
f, count} 

permits the operation of magnetic tape and cassette units 
on a machine level. 


X 


X 






3-17 


CALL MTOPD (channel, filename, mask, error) 

opens a magnetic tape or cassette unit for free format I/O. 


X 


X 






3-16 


CALL GDIS 


X 








2-7 


CALL OEBL 

enables console interrupts. 


X 








2-7 


CALL OPEN (channel, filename, (mode,) error f, size!) 

\ array,)' 






X 




3-10 


CALL OVERFLOW (statement!, statement! / "K" \ ) 


X 


X 


X 
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CALL OVEXT ( overlay , return-location ) 

causes an overlay to be released and provides a return 
location. 



CALL OVEXX ( overlay , return-location) 

causes an overlay to be released and provides a return 
location. 

CALL OVKIL ( overlay ) 

causes an overlay to be released and the task containing 
the overlay to be killed. 



CALL OVKIX ( overlay) 

causes an overlay to be released and causes the task containing 
the overlay to be killed. 



CALL OVLOD (channel , overlay, conditional -flag , error) 
loads overlays in a single task environment. 



CALL OVOPN ( channel , filename , error ) 
opens an overlay file. 



CALL PR I ( prio rity -nu mber ) 

changes the priority number of an executing task. 

CALL RDBLK ( channel , sblock, array , nblock , error f, ifalk} ) 

causes a series of blocks to be read from a contiguously or 
randomly organized file. 



CALL RDCMN ( array, start -word, number -of -word s , error) 

reads a message from another program's communication. 
area. 



CALL RDOPR ( array , nbyte , error) 
reads an operator message. 



CALL RDRW ( channel, sree , array, nrec , error f, nbyte} ) 

causes a series of records to be read from a file into an 
array. 
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RTOS 
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CALL READR (channel, srec, array, nree, error f» nbytef ) 

causes a series of records to be read from a file into an 
array. 


X 








3-14 


CALL REC (message -key, message -destination) 
receives a one -word message. 


X 


X 






4-12 


CALL REL8E (identification, error) 

causes the task with the specified identification number to be 
readied. 


X 


X 






4-10 


CALL REXAM (oldfiiename, newfilename, error) 
renames a disk file. 


X 








3-5 


CALL RESET 

closes all open files. 


X 


X 


X 




3-13 


CALL RLSE (directoryname, error) 

closes and releases all files of a given directory. 


X 


X 






2-4 


CALL RUCLK 

removes a previously defined user clock. 


X 


X 






6-3 


CALL SDATE (array, error) 
sets the date. 


X 


X 






6-3 


CALL SPD1S (devicename, error) 

disables spooling on a specified device. 










2-8 


CALL SPEBL (devicename, error) 

enables spooling on a specified device. 










2-7 


CALL SPKIL (devicename, error) 

stops a spool operation which is currently being performed. 










2-8 


CALL START (id, time, unit, error) 










4-7 


CALL STAT (filename, array, error) 

' . . .- . _ ' , . , . . . ' o . 


X 








3-7 
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CALL STIME (array, error) 
' '..■•■: • . ■ 


X 


X 






6-1 


CALL STTSK (id, status, error) 

obtains current status of a task. 


X 


X 






4-11 


CALL SUSP 

■■ ... - •. - ...... ..' . •; . ' ■ . - .• 


X 


X 






4-8 


CALL SWAP (filename, error) 

causes the current program's core image to be saved on 
disk, and another program to be loaded into core from disk. 


X 








5-1 


CALL TIME (time-array, error) 
gets the current time of day. 


X 


X 






6-2 


CALL TRNON (id, array, error) 

executes a task at a specified time. 


X 


X 






4-8 


CALL UPDATE (channel, error) 

permits the current file's size information to be updated. 


X 








3-8 


CALL WAIT (time, units, error) 

causes executing task to be suspended for specified amount of time. 


X 


X 






4-9 


CALL WRBLK (channel, sblock, array, nblock, error f, iblkr ) 
causes a series of blocks to be written into a disk file from an 


X 


X 






3-15 


CALL WRCMN (array, start -word, number -of -words, error) 

causes a message to be written by one program into another 

program's communication area. 










7-4 


CALL WRITR (channel, srec, array, nrec, error f, nbytet ) 
causes a series of records to be written into a file. 










3-15 


CALL WROPR (array, error) 
writes an operator message. 










7-4 
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CALL WRTR ( channel, srec, array, nrec, error f, nhytef ) 
causes a series of records to be written to a file. 



CALL XMT ( message -key , mess age -source , error -return) 
transmits one-word messages between active tasks. 



CALL XMTW ( message -key, message source , error-return) 

transmits a one -word message between aetiye tasks and waits 
until the message has been received. 



3-15 



X X 
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ERROR MESSAGES 



o.Air:i. i-:.< . jAao.v \ i : ^aqss 

Error checking by the FORTRAN IV compiler is quite extensive. Syntax, identifier usage conflict, 
and allowable -variable types in arithmetic expressions are all thoroughly checked. 

Whenever possible, the statement scan is continued after an error is detected and noted. This is 
done for non- syntactic errors in declaration statements and expression evaluation. In the scan of 
FORMAT statements, recovery will be attempted under certain conditions. 

Obviously, one error may lead to later error messages because information which should have been 
available to the compiler at this later point is not available. 

An error message consists of one or two lines. The FORTRAN source line is typed preceding the 
first error detected, followed by the error code (s). Sometimes the FORTRAN source line given in 
the message is not the line containing the error but the succeeding one . This occurs because some 
errors are not detected until it has been verified that the line following is not a continuation line; by 
that time, the erroneous line is not available for output. 

In specification statements, certain errors are detected when all declarations are being resolved and 
the first non- declaration line is in the buffer. Error messages resulting will be qualified by a second 
line specifying at least one of the identifiers involved in the error detected. 

Error messages 61 and 76 will be qualified with the statement number in question. 

Error messages are output to the teletype in all cases and to the listing device if different from the 
teletype. Error messages are always preceded by semicolons. A semicolon indicates to the 
assembler that the remainder of the line is a comment. Its use permits the listing and output devices 
' .•:.• iIa • rivr v- ■■ ;;y ..;: A . m. > >■ '.<-. .:'■. •„■ • .-.m. 

Each error message terminates with a decimal character count. This refers to the last character 
scanned and indicates that the source error occurred somewhere within the statement at or prior to 
the character given in the character count. Character count does not equal the column number, except 
when no tabs precede the character in question. 

Some examples of error messages are: 
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COMPILER ERROR MESSAGES (Continued) 



; DATA CPl/l,l.DP/CP2/l.D-5, .01D2/ 

;***050*** ACHRA15 

(Presume in the example above that CP1 and CP2 
are double precision complex variables. ) 

1 FORMAT(1HO,1P3E15.4,F8.2) 

*-**051***£CHR£03 

L2 

(The error, as indicated by the variable, L2» 
occurred in a specification statement preceding 
the FORMAT statement. ) 

; LI = R3+1..GE. *R4 

; ***013***ACHR/114 



In the list of error messages that follows: 

N - Means that the syntax error is not necessarily fatal. 

C - Means the scan of the statement is continued if the error is a syntax error. The 

continued scan applies only to syntax errors; errors at a diffferent level may or may 
not allow the scan to continue. 

In FORMAT statements, the error is generally fatal. In declaration statements, if a 
conflict occurs, the last declaration for the identifier is Ignored. 
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FORTRAN IV ERROR MESSAGES 



Code * • Meaning 

00 Working space exhausted. Fatal, but compiler 
continues. 

01 Multiply-defined parameter. 

02 N Mixed precision operands. 

03 N Unknown statement type. 

04 N Something other than blanks at statement end. 

05 Syntax error in DATA variable list. 

06 Syntax error in DATA literal list. 

07 Syntax error in statement function. 

10 C Missing integer in FORMAT. 

11 Error in parameter list of CALL. 

12 Array identifier not followed by a left or right 
parenthesis or comma. 

13 Illegal element in expression. 

14 Improper use of array name . 

16 Missing operator. 

17 Illegal sequence of adjacent operators. 

20 Illegal element/operator when "(" or literal or 
variable expected. 

21 Premature statement end for an IF. 

22 Trailing "." missing in operator such as .EQ. 

23 Illegal continuation line (after comment or having 
label) . 

24 "." not followed by letter or number. 

25 C Format error. 

26 C Format error after repeat count. (Errors 25 and 26 

together indicate an illegal character. These errors 
may repeat on one statement.) 

27 Abnormal end to FORMAT statement. 

30 Expression didn't close at end of statement. 

31 Multiply-defined error. 

32 Variably-dimensioned array not a dummy. 

33 Variable list longer than value list in DATA. 

34 C Identifier in more than one type declaration. 

35 Unclosed DO loop in program. 

36 Common variable previously declared EXTERNAL, 
subprogram or dummy. 

37 C Dummy identifier predefined. 

40 C Dimension error. 

41 Improper statement terminating DO loop. 

42 C Variable dimension for main program array. 

43 Array size is greater than 32K. 

44 Parentheses don't close before statement end. 

45 Expected numeric operand for unary minus. 

46 Expected logical operand for .NOT. 
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FORTRAN IV ERROR MESSAGES (Continued) 
Code Meaning 

47 N Illegal operand types for current operator. 

50 C Data statement error,* types don't match. 

51 Both members of equivalence pair in common. 

52 Beginning of common extended by equivalence. 

53 Irrecoverable format error. 

54 Statement function name in conflict with previous 
declaration. 

55 Multiply-defined dummy identifier in statement 
function. 

Too few subscripts in DATA or EQUIVALENCE. 
Subscripts out of bounds in DATA or EQUIVALENCE. 
Formal syntactical structure of statement is in 
error, punctuation is missing or an identifier is of 
the wrong variety. 
Undefined label. 

Attempt to load or store external or array. 
Array element can't be specified for a dummy array. 
Identifier in EXTERNAL previously declared in other 
than type declaration. 
A variable dimension is not a dummy. 
Variable on DATA list not in labeled COMMON. 
Two variables, neither in COMMON , are equivalenced. 
A subscript is not type integer. 

Wrong number of arguments for reserved name function. 
Wrong type of arguments for a reserved name function. 
Non-digit in label field. 
Carriage return in label field. 
Improper statement in block data subprogram. 
Unreferenced label. 

Stack variable referenced in statement function. 
Variable stack has no room for all run time variables. 
Undeclared identifier in statement function expression, 
RETURN statement in main program. 
$ followed by something other than a digit. 
End of file without END. 
Wrong number of subscripts. 

Hollerith constant not ended at statement end. 
Truncated integer. Magnitude greater than 2**15-1 . 
Exponent error in real. 
Exponent error in double precision. 
Illegal character for FORTRAN statement. 
Literal error of one of the following types: (a) two 
operands not both literals, (b) two literals of differ- 
ent types, or (c) source line is ( literal , literal 
operator where: operator is not a right parenthesis. 

140-160 Compiler errors for debugging only. 
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56 


C 


57 


C 


60 


C 


61 




62 




63 




64 


C 


65 


c 


66 




67 




70 




71 




72 




73 


N 


74 


N 


75 




76 


N 


77 




100 


c 


101 




102 




104 




105 




106 




111 




112 


c 


114 


c 


115 


c 


116 


c 



FORTRAN IV RUN-TIME ERROR MESSAGES 



Error Number Meaning 

1 Stack overflow 

2 Computed GOTO error 

4 Division by zero 

5 Integer overflow 

6 Integer power error (Illegal or overflow) 

7 Floating point underflow. 

8 Floating point overflow 

9 Illegal format syntax 
11 Logic conversion error 

13 Number conversion error 

14 I/O error 

15 Field error (i.e., F5.10, E5.4, etc.) 

16 Square root of negative number 

17 Log of negative number 

18 Channel not open 

19 Channel already open 

20 No channels available 

21 System exceptional status * 

24 Exponential over/under flow 

25 Array element out of bounds 

26 Negative base for floating-point power 

27 Number stack overflow 

28 BACKSPACE not implemented 

29 Attempt to restore status of channel when the 

status was not saved. 

30 Queued task error. 

31 Seek on a non-random file. 

32 Overlay aborted 

33 Illegal argument 

34 Delete error (file open) 

35 Overlay error In overlay kill. 

36 Undefined entry. ** 



* This error is generated when a system-related function (e.g., setting 
time) encounters an error (e.g., invalid time) and has no way to return 
an error indication to the FORTRAN, program. Note that 
CALL FSTIM ( hour , roin , sec ) cannot Indicate the error. However, 
CALL STIME ( array , ierror ) provides for an error and consequently, pro- 
cessing continues. 

** This error occurs when an attempt is made to call a subroutine that was 
not loaded. 
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1 




2 




3 





4 


1 


5 


2 


6 


3 


7 


4 


8 


5 


9 


6 


10 


7 


11 


10 


12 


11 


13 


12 


14 


13 


15 


14 


16 


15 


17 


16 


18 


17 


19 


20 


20 


21 


21 


22 


22 


23 


23 


24 


24 


25 


25 


26 


26 


27 


27 


30 


28 


31 


29. 


32 


30 


33 


31 


34 


32 


35 


33 


36 


34 


37 


35 


40 


36 


41 


37 


42 


38 


43 


39 


44 


4 


45 


41 


46 


42 


47 


43 


50 


44 


51 



SYSTEM ERROR MESSAGES 



Meaning 

Indeterminate error 
Call successfully completed 
Activity in progress 
Illegal channel number 
Illegal file name 
Illegal system command 
Illegal command for device 
Not a saved file 

Attempt to write an existent file. 
End of file. 

Attempt to read a read-protected file. 
Attempt to write a write-protected file. 
Attempt to create an existent file. 
Attempt to reference a non-existent file. 
Attempt to alter a permanent file. 
Illegal attempt to change file attributes. 
Attempt to reference an unopened file 
(not assigned) 
(not assigned) 
(not assigned) 

Attempt to use a channel already in use 
Line limit exceeded on read or write line 
Attempt to restore a non-existent image. 
Parity error on read line 
Trying to push too many levels 

Attempt to allocate more memory than available 
Out of file space 
File read error 
Unit not properly selected 
Illegal starting address 
Attempt to read into system area 
File accessible by direct block I/O only 
Files specified on different directories 
Illegal device code 
Illegal overlay number 

File is not accessible by direct block I/O 
Attempt to set illegal time or date 
Out of TCB's 

Message address is already in use 
File already squashed error 
Device already in system 

Insufficient number of free contiguous disk 
blocks 
QTY error 

Illegal information in task queue table. 
Attempt to open too many devices or directories 
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45 


52 


46 


53 


47 


54 


48 


55 


49 


56 


50 


57 


51 


60 


52 


61 


53 


62 


54 


63 


55 


64 


56 


65 


5«7 


66 


58 


67 


59 


70 


60 


71 


61 


72 


62 


73 


63 


74 


64 


75 


65 


76 


66 


77 


67 


100 


68 


101 


69 


102 


70 


103 


71 


104 


72 


105 


73 


106 


74 


107 


75 


110 



Meaning 

Illegal directory specifier 

Directory specifier unknown 

Directory is too small 

Directory depth is exceeded 

Directory in use 

Link depth exceeded 

File is in use 

Task ID error 

Common size error 

Common usage error 

File position error 

Insufficient room in data channel map 

Directory/device not initialized 

No default directory 

Foreground already exists 

Error in partition set 

Directory in use by another program 

Not enough room for UFTs 

Illegal address 

Not a link entry 

Program to be checkpointed is not checkpointable, 

or attempt to create two outstanding checkpoints 

Error detected in SYS.DR 

Error detected in MAP.DR 

Ten second disk time-out occurred 

Entry not accessible via a link 

MCA request outstanding 

Incomplete MCA transmission/request 

System deadlock 

Input terminated by channel close 

Spool file(s) active 

Task not found for ABORT 
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APPENDIX C 

DGC FORTRAN VARIATIONS FROM STANDARD FORTRAN 



1. Comments may be placed on the same line with statements. The syntactical scan of the line ends 
at a semicolon (;) and comments may follow the semicolon delimiter. 

2. Variables may be typed DOUBLE PRECISION COMPLEX. 

3. When declaring arrays, upper and lower bounds may be given for subscripts of arrays; thus the 
lower bound of an array subscript does not have to be zero but can be any integer including negative 
integers. A colon delimits the lower from the upper bound. 

4. An array may have up to 128 dimensions. 

5. Subscripts of array elements in executable statements (other than lists of I/O statements) may be 
any form of expression whose value is type integer. 

6. String constants enclosed in quotation marks or in apostrophes may be used instead of Hollerith 
constants. 

7. Formatting includes the tabulation format descriptor, Tw, tab to column w. 

8. Abnormal returns are allowed from subprogram units. 

9. All variables not stored in COMMON are placed on a run-time stack. Any program that does 
not alter COMMON storage is therefore a reentrant program. 

10. Program units must be ordered as follows: 

a. COMPILER DOUBLE PRECISION and COMPILER NOSTACK statements. 

b. OVERLAY and CHANTASK statements. 

c. PARAMETER statements. 

d. FUNCTION, SUBROUTINE, or TASK statement. 

e. Declaration statements, which begin with the keywords: COMMON, COMPLEX, DIMENSION, 
DOUBLE, EQUIVALENCE, EXTERNAL, INTEGER, LOGICAL, or REAL. 

f. Statement functions. (FORMAT statements and DATA initialization statements may be given 
in this area. ) 

g. Executable statements. (FORMAT statements and DATA initialization statements may be 
given in this area. ) 

11. imbedded blanks are significant except when they appear in the name of a program variable or in 
the statement identifier GOTO (GO TO). 

12. Statement identifiers, operator names, and names of library functions are reserved and cannot be 
used as program variables. The reserved names are: 



C-l 



12. (Continued) 



. AND. 


DBLE 


.EOT. 


DCABS 


.EQ. 


DCCOS 


.FALSE. 


DCEXP 


.GE. 


DC LOG 


.GT. 


DCMPLX 


.LE. 


DC OS 


.LT. 


DCS IN 


.NE. 


DCSQRT 


.NOT. 


DEXP 


.OR. 


DFLOAT 


.TRUE. 


DIM 


ABS 


DIMENSION 


ACCEPT 


DLOG 


AIMAG 


DLOG10 


AINT 


DMAX1 


A LOG 


DM1N1 


A LOG 10 


DMOD 


AMAX10 


DO 


AMAX1 


DOUBLE PRECISION 


AMINO 


DREAL 


AMIN1 


DSIGN 


AMOD 


DSIN 


ASSIGN 


DSQRT 


ATAN 


DTAN 


ATAN2 


DTANH 


BINARY 


END 


BLOCK DATA 


ENDFILE 


CABS 


ENTRY 


CALL 


EQUIVALENCE 


CCOS 


ERR 


CEXP 


EXP 


CHANTASK 


EXTERNAL 


CLOG 


FLOAT 


CMPLX 


FORMAT 


COMMON 


FUNCTION 


COMPILER 


GOTO 


COMPLEX 


IABS 


CONjG 


IAND 


CONTINUE 


IDIM 


COS 


IDINT 


CSIN 


IE OR 


CSQRT 


IF 


DABS 


IF IX 


DAIMAG 


INT 


DATA 


INTEGER 


DATAN 


IOR 


DATAN2 


ISHIFT 


DATN2 


ISIGN 



ITEST 
LOGICAL 

MAXO 
MAX1 
MINO 

MINI 
MOD 
NOSTACK 

NOT 

OVERLAY 

PARAMETER 

PAUSE 

READ 

REAL 

RETURN 

REWIND 

SIGN 

SEN 

S1NH 

SNGL 

SQRT 

STOP 

SUBROUTINE 

TAN 

TANH 

TASK 

TO 

TYPE 

WRITE 



Names identical to DGC extended assembler mnemonics are not available for use as subprogram 
names, 

13. An assigned GO TO is treated as an unconditional GO TO. 

14. Statements with an X in column 1 are compiled only if the X option is true at compile time. 
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15. Generated code treats logical variables as full words, thus providing for 16-bit logical operations. 
When testing for a truth value, any non-zero word = .TRUE. 

16. Octal numbers can he read and written under FORMAT control. 

17. Binary data can be read and written using READ BINARY and WRITE BINARY statements. 

18. Unformatted I/O leaves all conversion between internal and external forms up to the I/O processor. 

19. Variable names may be up to 31 characters in length. 

20. Hollerith strings are permitted in the lists of I/O statements. 

21. Specific verbs, TYPE and ACCEPT, are used for teletype I/O. 

22. Combined input and output is allowed in the ACCEPT statement. 

23. Sw string field descriptor is accepted in FORMAT specifications. 

24. Mixed arithmetic expressions combining integer with real and/or double precision quantities 
are accepted. 

25. Hollerith data may appear in integer arithmetic expressions and will be interpreted as integer data. 

26. Octal constants can be specified in the FORTRAN source program as + d ... dK, where each d 
is an octal digit. 

27. DATA initialization is provided for labeled COMMON only. 

28. Only COMMON variables can be EQUIVALENCed. 

29. DATA initialization of labeled COMMON is possible in any FORTRAN program or subprogram. 

30. Subprogram names must be unique within the first five characters (ANSI standard is six). 

31. A repeat count cannot be used with a Hollerith constant in a DATA initialization statement. 

32. PARAMETER statements can be used to define names for constants, 

33. Under the Real Time Operating System, a multitasking environment is provided as well as a 
single task environment. A task is a FORTRAN program unit and is defined in source language 
beginning with a TASK statement and terminating with an END. The FORTRAN task scheduler 
is used in multitasking and all tasking functions are handled at run time by run time tasking 
routines and the scheduler. 

34. Under RDOS, FORTRAN run time routines allow the user to identify to the RDOS system a device 
capable of generating interrupts. 

35. Under RDOS, FORTRAN run time routines provide access to the real time clock. 
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APPENDIX D 
OPERATING PROCEDURES 
There are several operating procedures within this appendix, they are: 

Operation under RDOS ........................... Page D-l 

Operation under RTOS Page D-12 

Operation under RDOS -compatible SOS ................. Page D-14 

Operation under DOS -compatible 'SOS .................. Page D-24 

Operation of 8K Stand-alone FORTRAN IV . Page D-25 

Operation of H1PBOOT ............................. Page D-26 

Turn to the appropriate procedures corresponding to the environment your FORTRAN IV program 
will be operating in. 

(.JrRBA VU.K. ' B.RG r.n.)^ 

The FORTRAN IV compiler is supplied to the user in the form of two dumped tapes. 

Dump Tape 1, FIV. SV -088-000032 

Dump Tape 2, FORT. SV, CLG. SV -088-000033 

Before invoking the compiler, the user must create save files from the tapes using the LOAD command. 
After the compiler has been LOADed, the FORTRAN library tapes must be transferred to the disk 
using the XFER command. The library tapes to be transferred are: 



RTIOS (099-000072) 

DFT. LB (099-000082) 

CSP. LB (099-000085) 
FMT. LB (099-000034) 
MFMT. LB (099-00058) 
FORT1. LB (099-000035) 
FORT2. LB (099-000036) 
FORT3. LB (099-000037) 
FORT4. LB (099-000055) 
(099-000056) 
(099-000057) 
FSYS. LB (099-000083) 



The Real Time I/O system library. (Transfer die tape first when using 

Analog -to -Digital equipment; otherwise, the tape may be ignored. ) 

Transfer first when using the Discrete Fourier Transform; otherwise, the 

tape may be ignored. 

Transfer first when using the FORTRAN Commercial Subroutine Package. 

The FORTRAN IV multitask library (unmapped environment) 

The FORTRAN IV multitask library ( mapped environment) 

FORTRAN IV Run Time Library 1 

FORTRAN IV Run Time Library 2 

FORTRAN IV Run Time Library 3 

SMPYD. LB - Software multiply /divide 

HMPYD. LB - Hardware multiply /divide (Nova 800's, Nova 1200*s Supernova) 

NMPYD. LB - Hardware multiply /divide (Nova) 

An optional FORTRAN IV library to be used only if certain run time routines 

are to be utilized in the user's program. The list of the concerned run time 

routines is shown following. 

If any of the following run time routines are to be CALLed from the user's program, the FORTRAN IV 
library, FSYS. LB, must have been loaded. 



BOOT 


■DUCLK 


GCOUT 


MD1R 


RUCLK 


CDIR 


DULNK 


GD1R 


MTDIO 


SPD1S 


CHEAT 


EQLJ1V 


GFREQ 


ODIS 


SPEBL 


CHSTS 


EXBG 


GSYS 


OEBL 


SPKIL 


CPART 


EXFG 


GTATR 


RDCMN 


STAT 


DIR 


FGND 


1CMN 


RDOPR 


UPDATE 


DLINK 


GCIN 


1N1T 


RENAME 
RUSE 


WRCMN 
WROPR 
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OPERATION UNDER RDQS (Continued) 

Once the compiler and library tapes are loaded onto disk, die FORTRAN IV compiler can be invoked 
using die FORT command followed by appropriate arguments. Unless die user specifies a /A switch 
(see Compile-Time Options) the compiler expects the save file ASM.SV to be resident on disk. 

Each FORTRAN main program, external subroutine, or external function is separately compiled. 
When the main program and its external subroutines and functions have been successfully compiled, 
the programs are loaded using the RLDR command. The FORTRAN libraries must always be 
loaded with the programs. 

A series of commands for compiling, loading, and running a FORTRAN program is shown following: 

FORT MAIN ) 
FORT XSUB1 ) 

FORT X FUN) 
FORTXSUB2) 

RLDR/D MAIN XSUB1 XFUN XSUB2 FORT1. LB FORT2. LBf) 

FORTS. LB FORT4. LB ) 

MAIN ) 

Compilation and Assembly 

The Command Line Interpreter command FORT is used to compile a FORTRAN IV source program 
file. The format of the FORT command line is: 

FORT f global switches } inputfilename f outputfiiename f local switches ^ ^ ) 

where: global switches can be appended to the command word, FORT. (These are discussed 
within the next section. ) 

inputfilename is the name of the source file the user wishes to be compded. 

outputfiiename is an optional file name specifying die name of die file to be output as a result 
of compilation. (By default, the name of the fde to receive the output is inputfilename . ) 

local switches are optional switches which can be appended to die optional output file name. 
(These switches are described within the next section. ) 

By default, the CLI will search for die FORTRAN source file with the specified name inputfilename. FR 
(or, inputfilename if no file name with die . FR extension is found). 



Compile-Time Options 
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OPERATION UNDER RDOS (Continued) 
Compile -Time Options (Continued) 

The global switches which may be appended to the command word FORT are: 

/A - assembly is suppressed, the source file will only be compiled (and 

intermediate source file is deleted by default). 
/B - brief listing (the compiler source program will be the only resultant 

listing). 
/E - error messages from the compiler are suppressed at the $TTO. 

(Assembler error messages, though, are not suppressed. ) 
fF ~ FORTRAN variable names and statement numbers are equivalenced 

to symbols which are acceptable to the assembler. 
/L - the listing will be written to a file named inputfilename. LS . 

/N - no relocatable binary will be produced. 

/P " process only 72 characters per record/line (punched card). 

/S - save the intermediate source output file; by default, this file is 

deleted. 
/U " causes user symbols to be output in the assembly phase (must be 

used with /F). 
/ x - compile statements with an X appearing in column 1. (X indicates an 

optionally compiled line. ) 

Local switches are appended to the appropriate outputf ilename in the FORT command line. Note that 
there may be more than one outputf ilename within the command line. The local switches are: 

/B - the relocatable binary output is directed to outputf ilename . This 

switch overrides the global /N switch. 
/E - the resultant error messages are directed to outputfilename. The 

local ,/E switch overrides the global /E switch. 
/L - listing output is directed to outputfilename . This switch overrides 

the global /L switch. 
/S - intermediate source output is directed to outputfilename . 

Some examples of FORT command lines are: 

FORT/L PRQGj 

produces a relocatable binary file with the name PROG. RB, and a compiler and assembler 
listing written to the file PROG. LS . 

FORT/N DPIrPROGl SLPT/L APROG1/S) 

compiles the file PROG1 from disk pack unit i and produces compiler source and assembly 
listings on the line printer and intermediate source output file, named APROG1, to the default 
directory. This command line will not produce a relocatable binary file from the assembly. 

Loading Procedures 

All loading is accomplished via the RLDR command line. The format of the command line, though, 
is different depending upon the particular RDOS system configuration and environment. Procedures 
are outlined on following pages for loading in: 
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OPERATION UNDER RDOS (Continued) 

Loading Procedures (Continued) 

a single task environment 
a multiple task environment 
overlays, creating an overlay file 
a foreground /background environment 
a mapped /unmapped environment 

Global and local switches may be appended to the command word or file name where pertinent. These 

switches are listed under the procedures for loading in a single task environment, but they should 

be remembered and referred to when reading the other loading procedures detailed within this section. 

In general, loading proceeds as follows: 

Main FORTRAN program 

User subprograms and optional user modules such as FHMA and FRTSK. 

Specific, optional, DGC supplied FORTRAN libraries such as RTIOS. LB (Real Time 

I/O System) or DFT. LB (Discrete Fourier Transform). 

Required FORTRAN Libraries in the order given in sections following (FMT. LB, 

FORT1.LB, etc.). 

Loading in a Single Task Environment 

The RLDR command line is used to load relocatable binary output produced from compilation. The 
format used for loading in a single task environment is: 

RLDR fglobal switches^ mainprograna f local switches 1 ) ^ subprograms ^ f local switches ^ t ) 

f FHMA] FORT1.LB f FSYS. LSJ FORT2. LB FORT3. LB FORT4.LB) 

where: global switches which can be appended to the command word RLDR are: 

/A - produce an additional symbol table listing with symbols 

ordered alphabetically. 
/C - cause loading to be compatible with RTOS/SOS conventions. 

,/D - load the symbolic debugger. 

/E - output errors to the error file (console, by default). 

/H - output all numerics in hexadecimal format (radix 16). By default, 

ail numeric output is in octal format. 
/N - inhibit search of SYS. LB. 

/S - symbol table left at the high end of memory. 

/Z - start save file at location zero. (CAUTION must be exercised if 

this switch is used. ) 

mamprogram is the name of the FORTRAN IV main program, unit. 

local switches are switches which may be appended to an input file name or octal number, 
these are: 

,/C - preceding octal number specifies number of channels 

required. 
,/E - error messages are output to given file name. 

/F - preceding octal value is the foreground NREL partition address 

(used only when loading in foreground /background unmapped 

environment). 
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OPERATION UNDER RDQS (Continued) 

Loading in a Single Task Environment (Continued) 

/K preceding octal value specifies the number of tasks required. 

(This switch is not used in a single task environment). 

/L listing of the symbol table is written to the given file name. 

/N Mv'lAX is forced to an absolute address. 

/S file specified will he labeled with the . SV extension. 

/U user symbols are loaded from relocatable binary file specified. 

/ z preceding octal value is the foreground ZREL partition address. 

(Used only in a foreground /background loading environment. ) 

subprograms are the optional names of one or more FORTRAN subprograms to be used 
by the main FORTRAN program unit. 

FHMA is an optional user module which defines the highest memory address accessible. 
The default value is at the bottom of the system. 

FORTi. LB, FORT2. LB and FORT3. LB are three FORTRAN IV Run Time Libraries 
which must be loaded. FORT4. LB is one of three tapes depending upon the system 
configuration, either: 

099-000056 hardware multiply /divide (HMPYD. LB) 

(used with Nova 800's, Nova 1200's and 
the Supernova) 

099-000057 hardware multiply /divide (NMPYD. LB) 

(used with the Nova) 

099-000055 software multiply /divide (SMPYD. LB) 

FSYS. LB is a FORTRAN library which is loaded only if one or more of the CALLs 
listed on page D-l are to be issued from within the user program. 

The main program is always loaded first, followed by any external subprograms, followed by the 
FORTRAN IV library files. 

Leading in a Multitask Environment 

In a multitasking environment, the multitask library (called FMT. LB) must be loaded before any of 
the other FORTRAN libraries. The switches and comments which applied to single task loading 
apply also to multitask loading. The format of die RLDR command line used in a multitask environ- 
ment is: 

RLDR m^jjj ove ^ Uj __; iTeal [ [ "^\ fnumber/ Cj f number /iq fFHMA} fFRTSKg FMT. LB f) 
FORTI. LB f FSYS. LB} ~FORT2. LB FORT3. LB FORT4. LB ) 

where: main is the name of the FORTRAN main program unit. 

taskname is the name of a relocatable binary compiled from a task written in FORTRAN IV 
or assembled from an assembly language program. 

overlay -area is a bracketed list of relocatable binaries to become part of the overlay file, 
main. OL; relocatable binaries separated by blanks are part of die same node while those 
separated from the preceding by a comma belong to another node. 
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OPERATION UNDER RDOS (Continued) 

Loading in a Multitask Environment (Continued) 

number /C specifies the number of system channels required. 

number/K specifies the number of tasks to be used. (The numbers specified by the C and 
K switches overwrite the values specified in the CHANTASK statement. If these values are 
unspecified, the default values are a single task environment with 8 channels required. ) 

FHMA is an optional user module which defines the highest memory address accessible. 
The default value is at the bottom of the system. 

FRTSK is an optional user -supplied module specifying the number of tasks written in 
FORTRAN which will be active simultaneously. 

FMT. LB is the name of the FORTRAN IV multitask library. 

FORT1. LB, FORT2. LB and FORTS. LB are three FORTRAN IV Run Time Libraries which 
must be loaded. FORT4. LB is one of three tapes depending upon the system configuration, 
either: 

1399-000056 hardware multiply /divide (HMPYD. LB) 

(used with Nova 800 's, Nova 1200 's and the 
Supernova) 

099-000057 hardware multiply /divide (NMPYD. LB) 

(used with the Nova) 

099-000055 software multiply /divide (SMPYD. LB) 

FSYS. LB is a FORTRAN library which is loaded only if one or more of the CALLs 
listed on page D-2 are to be issued from within the user's program. 

The Overlay Loader (OVLDR) 

It is possible to replace one or more overlays within an overlay file. To do so, a file of replacement 
overlays must be loaded using the overlay loader, which is invoked with the command OVLDR. When 
the replacement file of overlays has been loaded, overlays within the current overlay file may be re- 
placed with overlays in the replacement file, using the command REPLACE. Up to 127 overlays can 
be replaced. 

Use of the overlay loader requires that there exist a save file filename. ST and an overlay file 
filename. OL, and that the save file contain a symbol table. ( Tie save file will contain a symbol table 
either if the symbolic debugger is loaded (global /D in the RLDR command line) or if the symbol table 
only is loaded by declaring it as an external normal, . EXTN . SYM. , in the code loader is part of the 
save file. For example, save file A. SV and overlay file A. OL could be loaded using the following 
command line: 

RLDR/D A B [C, D E, F] G [M, K, O] FORT. LB ) 

The diagrams on the following page would represent the save and overlay files created. 
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OPERATION UNDER RDOS (Continued) 

The Overlay Loader (OVLDR) (Continued) 
A.SV 



node 



node 1 



A 


B 


overlay 


area 





G 


overlay 


area 


I 



A.OL 



DE 



M 



O 



node 



node 1 



Then if one or more overlays of A. OL are to be replaced at a later time, the overlay loader can be 
used to load a replacement overlay file, A. OR. The format of the OVLDR command line is: 

OVLDR filename j overlay symbol fN\ overlay list ... ♦ 

( overlay number /N/ 

[/ overlay symbol /N \ overlay list 4- devicename /Ll t 

t ( overlay number/ N/ j L j 

4 devieename /EJ ) 

where: filename is the name of the save file associated with the overlay file in which overlays 
are to be replaced. 

overlay symbol and overlay number are alternative means of referencing the overlay(s) 
to be replaced, overlay number is a 1 to 6 digit octal number (see page 5-8). overlay 
symbol , if used, must have been a symbol declared by . EN TO . 

oyerlay list is a list of one or more overlays which are to replace the overlay specified 
by overlay symbol or overlay number . 

deyicename /L is the name of the device to contain the listing file. 

devicename /E is the name of the device to contain the error file. 

For example, if the user wishes at some time to replace overlay F in A. OL moth overlay Fl and 
to replace overlay O in A. OL with overlay 01, he must first load the overlays into a replacement 
file using the overlay loader: 

OVLDR A 2/N Fl 402/N 01 $LPT/L $TTO/E ) 
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OPERATION UNDER RDOS (Continued) 

The Overlay Loader (OVLDR) (Continued) 

The resulting overlay replacement file would contain: 
A. OR 



OR directory 



Fl 



Ol 



To substitute Fl for F and Ol for O, the user would then give the command: 

REPLACE A ) 

Loading in a Foreground/Unmapped Environment 

All relocatable loads are loads in the background unless indicated as foreground loads. This is 
indicated by including memory partition address information within the command line. The partition 
addresses define the starting ZREL (/Z switch) and NREL (/F switch) addresses of the foreground 
load. 

The selected NREL partition address must be equal to 16g + n * 400g where n is a positive integer. If 
the given NREL partition address is not of this form (i.e. » n is not an integer), the loader will adjust 
the NREL partition address upwards by rounding n to the next higher integer value. 

The format of the RLDR command line is: 

RLDR main --{ g^rlw- area l . . [}] t FRTSK ^ f number /Cj f number /iq t) 

number/ F number /Z FMT. LB FORT1.LB f FSYS. LB} FORT2. LB t) 
FORTS. LB FORT4. LB ) 

where: the command line is identical to previous command line formats except for the inclusion of 
the /F and /Z switches. 

Loading in a Background Unmapped Environment 

The RLDR command line format used is identical to that given for the multitask loading environment, 
except that an optional user -supplied module (called FHMA) may be loaded anywhere before the 
libraries in the command line. 

FHMA specifies die highest memory address a FORTRAN background program may have. This 
insures that memory will be available for a potential foreground program. 

Examples of RLDR Command Lines 

RLDR MAIN SUB1 FORT1. LB FOR T2. LB FORT3. LB FORT4. LB) 

loads one main program unit and one external subprogram unit and the FORTRAN libraries. 
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OPERATION UNDER RDOS (Continued) 

Examples of RLDR Command Lines (Continued) 

RLDR MAIN TASK! TASK2 FMT. LB FORT1.LB FORT2. LB FORT3. LB FORT4. LB J 

loads one niain program unit and two tasks along with the multitask library and the other 
four FORTRAN libraries. 

RLDR MAIN T2 [ OV1 OV2, OV3 ] T3 FRTSK FMT. LB iO/C 4/K FORTl.LBfJ 
FORT2. LB FORTS. LB FORT4. LB) 

loads a FORTRAN main program unit, two tasks, and an overlay file consisting of two 
overlays, the user-supplied FRTSK module, the multitask library, and the four FORTRAN 
libraries. The number of tasks is set to 4 and the number of channels to 10. 

Undefined Symbols 

At the termination of loading, only the . DSI symbol (which is used in stand-alone) should be undefined. 
When in a multitasking environment, no symbol should remain undefined in the load map. 

To provide dummy definition on BATCH runs, .DSI can be defined as: 

.DSI = -1 

Debugging 

To use the symbolic debugger, DEBUG III, for run time debugging of FORTRAN programs, the 
global /D switch should be appended to the RLDR command word. The switch causes DEBUG to be 
loaded. To replace DEBUG III with IDEB, the RLDR command line must also contain me file name 
IDEB hi addition to die /D global switch. The mnemonic IDEB must precede SYS. LB in the command 
line if SYS. LB is present in the line. 

Merging Library Files 

The merging of library files can be accomplished by use of the M function within the LFE command 
line. The library files FORT1. LB, FORT2. LB, FGRT3. LB and FORT4. LB can then be merged to- 
gether as one library file. This file should be named FORT. LB to be recognized by CLG (see The 
CLG Command on page D-10). The command to merge the FORTRAN libraries is: 

LFE M FORT. LB/'O FORT1. LB FORT2. LB FORT3. LB FORT4. LB ) 

where the local /O switch signifies the name of the output library file, FORT. LB. 

It is then possible to load a FORTRAN program, with necessary libraries, with die following command 
line: 

RLDR MAIN FORT. LB ) 

The FORTRAN multitask library, FMT. LB, and the FORTRAN Mapping Library, MFMT. LB, are 
merged only with the other library files when multitasking in mapped or unmapped facilities is 
desired. 

The FORTRAN IV library FSYS. LB can be merged when it is necessary for its inclusion in the set 

of libraries, because of a program's issuance of CALLS to one or more of die routines listed on page D4 
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OPERATION UNDER RDOS (Continued) 

Merging Library Files (Continued) 

To load a FORTRAN program, with two subprograms* in a multitask environment, the following 
e r ,!v ;.•■.! ', '.-.■.. , .n iw ...... .■;■.: 

RLDR MAIN TASK1 TASK2 FMT. LB FORT. LB ) 

The CLG Command 

The CLG Command is used to perform a FORTRAN IV compilation, load, and execution of one or 
more FORTRAN IV source files. The CLG (compile, load, and go) will bring in whatever system 
programs are required to create a save file from the specified input files and then execute the save 
file just created. 

Output includes one or more intermediate source files, one or more relocatable binaries, and an 
executable save file. The save file is created by the relocatable loader, using the relocatable binary 
files and four of the FORTRAN IV libraries which must have been merged into a single library called 
FORT. LB. 

CLG is supplied as a file on the FORTRAN system dump tape, which is loaded as part of die FORTRAN 
compiler. All other needed system programs must have been loaded onto disk. These include, besides 
the FORTRAN IV compiler, the Assembler and the Relocatable Loader. 

The format of the CLG command line is: 

CLG filename f filenarae2 . . . filename ^ ) 

By default, all filename arguments are presumed to be file names of FORTRAN IV source files. 
Optional load switches to the particular file names specified indicate whether the file is an assembly 
source file or an assembled file that is to be loaded. The CLI will first search for filename, extension 
(where extension is either . FR, . SR or . RB) and if not found, will search for filename. 

Global switches can be appended to the command word CLG. The allowable global switches are: 

/B brief listing (compiler source program input only). 

/M die loader map is suppressed. All compiler and assembler source 

programs are listed. 
/E error messages from the compiler are suppressed at the 5TTO. 

(Assembler error messages, though, are not suppressed. ) 
/T indicates multitask CLG command line. (Note that the multitask 

library FMT. LB must be available on disk. ) 

Local switches are appended to the appropriate filename within die CLG command line. Allowable 
local switches are: 

,/C preceding octal number specifies number of channels required. 

/L listing output is directed to die given file name. 

/A assemble and load this file only; do not compile. 

/ N load this file only, do not compile or assemble. 

/K preceding octal value specifies number of channels required. 

An example of a CLG command line is: 

CLG/M PROG1 PROG2/A PROG3/N MT0:1/L) 
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OPERATION UNDER RDOS (Continued) 

The CLG Command (Continued) 

In the example, CLG will take the following action: 

1. Compile PROG1, FR (or PROG1) producing temporary assembler source file, 
PROG1. SR. Assemble PROG1. SR producing PROG1. RB. Delete PROG1. SR. 

2. Assemble PROG2. SR (or PROG2) producing PROG2. RB. Delete PROG2.SR. 

3. Listings from each compilation and assembly are appended to file 1 on magnetic 
tape unit 0. 

4. Load PROG1. RB, PROG2. RB, and PROG3. RB together with the FORTRAN IV 

library file FORT, LB, to a save file named PROG1. SV. The loader map is 
suppressed. 

5. Execute PROG1.SV. 

In a single task environment, the FORTRAN merged library file, FORT. LB, must be on disk when 
the CLG is executed. For multitasking, both the multitasking library, MFMT. LB, and the merged 
file FORT. LB must be on disk. 
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OPERATION UNDER RTOS 

Since the Real Time Operating System (RTOS) is a compatible subset of the Real Time Disk Operating 
System (RDOS), RTOS will support a subset of DGC Real Time FORTRAN IV. To write a FORTRAN IV 
program for use with RTOS, you may use either the RDOS FORTRAN IV compiler or the SOS 
FORTRAN IV compiler. Operating procedures for each are given within this chapter, beginning on 

page D-l for RDOS and page D- 14 for SOS. 

The only restriction when writing a FORTRAN IV program under RTOS is that only those real time 
calls may be used which have corresponding system and task calls implemented in RTOS. There- 
fore, use of the OVERLAY statement is prohibited, but all Real Time FORTRAN IV calls except 
the following may be issued. Trie calls which are prohibited in a RTOS environment are: 



BACK 


CPART 


FBACK 


FSTAT 


GDIS 


RDCMN 


WRCMN 


BOOT 


DFILW 


FCHAN 


FSWAP 


OEBL 


RDOPR 


WRITR 


CDIR 


DIR 


FCLOS 


GCIN 


OVEXT 


RDRW 


WROPR 


CFILW 


DUNK 


FGND 


GCOLJT 


OVEXX 


READR 


WRTR 


CHAIN 


DULNX 


FOVLD 


GDIR 


GVKIL 


RE NAM 




CHEAT 


EBACK 


FOVRL 


GSYS 


OVKIX 


STAT 




CHSAV 


EXBG 


FQTASK 


ICMN 


OVLOD 


SWAP 




CHSTS 


EXFG 


FSEEK 


MD1R 


OVOPN 


UPDATE 





After having produced one or more FORTRAN IV relocatable binaries, the relocatable binaries 
may be loaded using the (1) SOS relocatable loader (RLDR), the (2) RDOS relocatable loader 
(RLDR), or the (3) stand-alone extended relocatable loader (091-000038). 

Using (1) or (2) the format of the command line is: 

RLDR main f subprograms } RT module f RTOSFMT. LB } FORT1. LB fFSYS. LB} FORT2. LB 

FORT3. LB FORT4.LB RTOSGEN.SV RTOSGEN. RB GSUBR.RB PARR.SR RTOSGEN. AB 
RTOS1.LB RTOS2.LB CASDR. LB MTADR. LB DSKDR. LB DKPDR.LB) 

RLDR main f subprograms j RT module ( RTOSFMT. LB j FORT1.LB fFSYS. LB^ FORTB.LBf) 
FORT3. LB FORT4.LB RTOS 1. LB RTOS2. LB ) 

where: main is the name of the main FORTRAN program unit. 

subprograms are the names of one or more optional subprogram units called by mam . 

RT module is the name of the module produced in the RTOS SYSGEN procedure. 

RTOSFMT.LB (099-000077) is the RTOS multitasking FORTRAN IV run time library. 
The library must not be used in a single tasking environment. 

FGRT1. LB, FORT2. LB, FORT3. LB, and FORT4. LB are the FORTRAN libraries. (These 
libraries may exist on paper tape, magnetic tape, or cassette tape.) Note that these are 
the RDOS libraries described on page D-l . 

FSYS.LB (099-000083) is a library that is to be loaded if the user's program is to issue one 
of the following run time calls: DUCLK, GFREQ, INIT, MTDIO, RLSE, and RUCLK. 
(If this library is to be loaded, it must be loaded between FGRTl.LB and FORT2.LB. ) 

RTOS1.LB (099-000060) is the first RTOS library to be loaded, and RTOS2.LB (099-000061) 
is the second RTOS library to be loaded. 

If using the (3) stand-alone relocatable loader (091-000038) which is loaded via the binary loader, 
it will self-start and print: 



SAFE = 
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OPERATION UNDER RTOS (Continued) 

after which the user responds with a carriage return which will reserve the upper 200 words of 
memory, preserving both the bootstrap and binary loaders. The loader then prompts: 



The paper tapes may then be loaded in the same order as they were typed in response to an RLDR 
command line format. Briefly, the load process is to mount each tape, in turn, in either the 
teletypewriter reader or the high-speed paper tape reader, then type either 1 or 2. 

i - teletypewriter reader 

2 - high speed paper tape reader 

After each tape is loaded, the loader prompts with *. After the pertinent tapes have been loaded 
a loader map can be requested by typing 6. At this time the load process can be terminated by 
typing 8. 

To restart, set the restart address, 376, in the data switches, press RESET, and then press START. 

For more detailed instructions of operation in an RTOS environment, refer to the RTOS User's 
Manual, 093-000056, Appendix B. 
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OPERATION UNDER SOS 

SOS operating procedures are subdivided into three segments (I) those for users v/hose SOS 
system does not support a cassette or magnetic tape unit (SOS library tape 099-000010), (2) those 
for users whose SOS system includes a magnetic tape or cassette unit (SOS library tapes 
099-000010 and either 099-000042 (magnetic tape) or 099-000041 (cassette)), and (3) those for 
users whose SOS system is DOS -compatible (SOS library tape 099-000071). Operation for 
numbers (1) and (2) is given below and on the following pages, operation for (3) begins on page D-21. 

OPERATION UNDER RDOS -COMPATIBLE SOS 

This SOS version of the FORTRAN IV compiler is supplied as two absolute binaries, FORT1. AB 
(091-000039) and FORT2.AB (091-000043) and four libraries, FORTI, FORT2, FORTS, and FORT4, 
which are the RDOS libraries described on page D-l. 

For users whose system supports a cassette or a magnetic tape unit, two relocatable tapes are 
provided which allow users to configure their own FORTRAN IV compiler to be used with their 
specialized peripheral devices. These tapes are: 

SOSFI.RB - 039-000041 

FORT. RB - 089-000161 

The SOS relocatable loader can be used to configure a specialized version of the FORTRAN 
compiler. The trigger used may be generated by the SOS SYSGEN program or a separate 
assembly may be produced to generate external normal symbols which will trigger the loading 
of SOS device drivers. For example, if the user wants a compiler with a high speed paper tape 
reader, a high speed paper tape punch, and two cassette units, he could input to the SYSGEN 
program: 

(SYSG) trigger /T SPTP/O . PTRD . PTPD . CTU1 ) 

The SOS relocatable loader can men be used to load the following files in the order: 

TRIG 
SOSCT 
SOS. LB 
FORT. RB 
SOSFI. RB 

Compilation 

When SOS FORTRAN IV is loaded, the prompt: 

FORT 

Is printed on the teletypewriter. The user should respond by typing in a command line giving the 
file names of die files to be input for compilation, the output file name, and the listing file name 
If any, along with optional compile -time option switches. 'The FORT command line will be written 
in the following format: 

FORT filename 1 f filename2 . . . filename* ^ j 

where: FORT followed by a space is typed by the system. 

eac '* J filename can be modified by one or more of the switches described on the following 
page. 
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OPERATION UNDER RDOS -COMPATIBLE SOS (Continued) 
Compilation (Continued) 

The switches which may be appended to a given filename are: 

/O - this file is to be used for output. 

/b - diis file is to be used as the listing file. 

/X - compile statements with an X appearing in column 1 of die source line. 

(This must be used to modify die output file name, the file name which is 

appended with the /O switch. 
/S - FORTRAN IV variables and statement numbers are equivalenced to 

symbols which are acceptable to die assembler. (This switch must 

modify the output file name), 
/n " n is a single digit representing die number of files to be input, e. g. , 

SPTR/3. 

At a minimum, the command line must contain one file name which is die input file name. If more 
than one input file is specified, e.g. , 

FORT MT0:2 MT0:3 MTl:0/O) 

the message: 

TO CONTINUE, STRIKE ANY KEY) 

is typed on the teletypewriter console whenever one of die intermediate files has passed through 
die compiler. The next input file must be ready for opening when die user strikes die key. No 
odier prompt messages are output for intermediate input files. 

Input files are compiled in the order in which they are specified within die command line. At die 
completion of each compilation, die prompt: 

FORT 

is again typed on die teletypewriter. The prompt is reissued if no input fde name is found in die 
command line. If die last specified input file does not have an END statement, die message: 

END OF FILE ) 

is typed at die console. The compiler must then be restarted (die restart location is 377). If any 
unexpected system error occurs, the message: 

FAT Ah I/O ERROR xx_ ) 

is typed at the console, xx i s one of the two-digit error codes defined in die SOS User Parameter 
Tape, PARU.SR (a copy of which can be found in the Stand-alone Operating System User's Manual, 
093-000062). 

The command line mav be deleted, continued, or modified in the frdlnwino- mf>mv>r- 



s the 
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OPERATION UNDER RDOS -COMPATIBLE SOS (Continued) 

Compilation (Continued) 

An example of a FORT command line is: 

FORT $PTR/2 IPTP/O SLPT/L ) 

The SOS SYSGEN procedures allow the user to tailor the compiler I/O configuration. See the SOS 

User's Manual. 

Assembly 

FORTRAN IV output is assembled with the DGC Extended Assembler, 091-000017. The assembler 
can be loaded from paper tape, at which point it will print the prompt ASM. Or, when a cassette or 
magnetic tape unit is configured in the system, the CLI command ASM may be issued. In either case, 
the format of die ASM command line is: 

ASM( 1 } filename 1 f . . . filename^ ) 

The ASM command line is used to assemble one or more ASCII source files. Output may be an absolute 
binary file or a relocatable binary file. Files are assembled in the order specified in the command 
line, left to right. The same cassette or magnetic tape unit cannot be used for more than one output 
file but may be used for more than one input file. Further, the same cassette or magnetic tape unit 
cannot be used for both input and output. 

Action taken by the assembler is determined by the key specified in the ASM command line (0, 1, or 2). 

- Perform pass one on the specified source file, then halt with the highest 

symbol table address (SST) in AC0. 

1 - Perform pass one and pass two on the specified FORTRAN input files, producing 

die specified binary and listing files. At the completion of pass two, the assembler 
outputs a new prompt, ASM, and awaits a new command line. 

2 - Perform pass two only on the specified input files producing the specified binary 

and listing files. At die completion of this pass, the Assembler outputs a new 
prompt, then ASM, and awaits a new command line. 

The global switches which may be appended to the key number are: 

/E - suppress assembly error messages normally output to the STTO. 

/T - suppress die listing of the symbol table. 

,/U - include local (user) symbols in the binary output file. 

The local switches which may be appended to individual file names are: 

,/B - relocatable or absolute binary file is output on the given device. 

/L - any output device to which die listing is directed. 

/K - any input file which is not to be listed in pass 2. 

/P - pause before accepting a file from a device. The message: 
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OPERATION UNDER RDOS-COMPATIBLE SOS (Continued) 
Assembly (Continued) 

PAUSE - NEXT FILE, devicename 



Is output by die assembler which waits until any key is struck on the 
teletypewriter console. 

/ s " skip this source file during pass two. 

/'H " n is a digit from 2 to 9. 

ASM i/E CT0:16 CT0:17 CT1:0 CTi:l $LPT/LJ 

causes a two-pass assembly to be executed on FORTRAN input source file CT0:16, CTT.M7 CT1-0 
and CT1 :1 with a listing produced on the line printer. Error messages normally output to die STTO 
are suppressed, and no binary file is produced. 

Loading 

Having produced one or more FORTRAN IV relocatable binaries, die relocatable binaries for sys- 
tems using magnetic tape or cassette may be loaded using the SOS relocatable loader (089-000120) 
Systems using paper tape may be loaded using the stand-alone relocatable loader (091 -000038) The 
SOS relocatable loader priits the prompt RLDR, and the user responds with the command line: 

(RLDR) main f subprograms 1 ) FORT1. LB FGRT2. LBtj 

FORT3. LB FORT4. LB trigger f( cassette library il SOS main library ) 

T j mag tape library )" " 

where: main is the name of the FORTRAN main program unit. 

subprograms are die names of one or more optional subprograms to be called by main. 

FORT1. LB, FORT2. LB, FORTS. LB are FORTRAN libraries. (These libraries may 
reside on paper tape, magnetic tape, or cassette tape. ) 

FORT4. LB is a FORTRAN library tape selected to correspond to the user's system con- 
figuration, either: 

099-000056 hardware multiply /divide (Nova 1200; s, Nova 800's 

Supernova) 
099-000057 hardware multiply /divide (Nova) 

099-000055 software multiply /divide 

trigger is die SOS trigger which Is created during the SOS SYSGEN procedures. It 
is a tape containing external symbols for those devices that are to be a part of the 
system, (trigger is outlined on die following page. ) 

cassette library is tape number 099-000041 and must Joe loaded only when cassette 
units are to be a part of die system. 

mag tape library is tape number 099-000042 and must be loaded only when magnetic 
tape units are to be a part of the system. 

S- e . 1. In- ...... ... • •- a ; it contains the main library and all 
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Upon completion of a successful load, the message OK is printed at the console and the system 
will halt with the loaded program in core. 

The stand-alone version of the relocatable loader (091-000038) is used as described under RTGS, 
page D-12. Loading of FORTRAN tapes proceeds in the same order as given for the SOS loader 
just described. 

Execution and Restart Procedures 



The loaded program may be executed by pressing CONTINUE or by using the RESTART procedures. 
When a PAUSE statement is executed, the program will continue when the programmer presses any 
teletypewriter key. Restart procedures are as follows: 

i. Set switches to 377. 

2. Press RESET. 

3. Press START. 

IT bm jr.. ;. !Ti. _>. r 

A trigger is produced using the SOS SYSGEN program which is loaded via the binary loader, or 
loaded using the core image loader/writer. Basically, the SYSGEN program accepts a command 
line containing device driver entry symbols and outputs a file containing external references to the 
named devices. When the trigger is loaded in the RLDR command line ( preceding other SOS 
libraries) the external normal references on the trigger will cause the named device drivers to be 
loaded from the SOS libraries. The format of the SYSGEN command line is: 

(SYSG) dr iver , . . . driver . RDS1 [ . CTB j output-device /Q { trigger name /IT} 
1 n 

driver may be one or more device driver entry symbols selected from the following chart: 



Device Name Devic 


e Driver Entry Symbol 


Device 1 








M •.-.••. 


CDRD 


card reader 


CT0 


CTAD 


cassette unit 


CT0, 1 


CTU1 


cassette units and 1 


CT0, 1,2 


CTU2 


cassette units 0, 1, and 2 








CT0, 1,2,3,4,5,6,7 


CTU7 


cassette units 0, 1 , 2 , 3 , 4, 5, 6 


and 


7 


SPTP 


PYPJ3 


high-speed paper tape punch 


SPTR 


PTRD 


high - speed paper tape reade 


r 




$LPT 


LPTD 


80-column line printer 




L132 


132-column line printer 


MT0 




magnetic tape unit 


MT0, 1 




magnetic tape units and i 


* 


■ 1 1 


MT0, 1,2,3,4,5,6,7 


MTu / 




1 •■^■"•■•^^ ^ 0,1.2.3, 


4 5 


S and 7 


SPLT | 


PLTD 










STTO/STTI 


STTY 




| teletype printer and keyboarc 






TTIl/TTOl 


TTI1 1 second teletype printer and keyboard 








RTC2 




j real time clock, 100HZ 








RTC3 










j ■ — 


RTC4 










' 






J real time clock, 50UZ 
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OPERATION UNDER RDOS -COMPATIBLE SOS (Continued) 

Possible Error Messages 

The possible error messages resulting from the ASM or RLDR command lines are: 



Error Message 


Meaning 


ASM 


RLDR 


NO END 


No END statement was specified in any source 
program. 


X 




NO INPUT FILE 
SPECIFIED 


No input file name was specified. 




X 


SAVE FILE IS READ/ 
WRITE PROTECTED 


The save file device must permit both reading 
and writing: only cassette and magnetic tape 
units are permitted as save file devices. 




X 


I/O ERROR n 


Input/output error n 

where n = 

1 Illegal file name. 

7 Attempt to read a read -protected file. 

10 Write -protected file. 

12 Non-existent file. 


X 

X 

X 
X 
X 


X 

X 

X 
X 
X 



SOS FORTRAN IV Examples 

FORT CT0:0 $LPT/L CTl:0/O) 

FORT$LPT/L CT0:1 CTl.T/O) 

FORT CTl:2/0 CT0:2 $LPT/L) 

FORTRAN IV input files on CT0:0, CT0:1, and CT0:2 are compiled and assembly source files are 
produced on CT1:0, CTl:i, and CT1:2 (indicated by a /O switch) respectively with all listings 
produced on the line printer. 

ASM 1 $LPT/L CTG:0/8 CT1:0) 

ASM i CT0:1/B CT1:1 SLPT/L) 

ASM i CT1:2 $LPT/L CT0:2/B) 

Assembly source files on CT1:0, CT1:1, and CT1:2 are assembled and relocatable binary files are 
produced with a listing to the line printer. 

(SYSG) TRIG/T CTl:0/O . RDSI . CTU2 . PTRD . PTPO) 

A trigger file is produced on CT1:0 with external normal references necessary to load drivers for 
3 cassette units, $PTR driver, SPTP driver, and the RDOS-to-SOS interface from the SOS libraries. 

RLDR SLPT/L CT2 :0/S CTD:0 CT0:1 CT0:2/P CTlrO/P CTi:0t) 

CT1:0 CT1:1 CT1:2) 
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OPERATION UNDER RDOS -COMPATIBLE SOS (Continued) 

SOS FORTRAN IV Examples (Continued) 

A save file is produced on CT2:G and also loaded into core with a load map printed on the $LPT. 
This command line assumes that the following procedure is executed: 

1) The relocatable binaries generated from the FORTRAN compilations are loaded from 
CTO:0, CTO:!, and CID;2 with a pause (indicated by the /P switch) following the last one 
loaded. 

2) A merged version of the four FORTRAN libraries on a single cassette reel is mounted 
on unit 1 and loaded with a pause following this file. 

3) Tie reel on unit one is now replaced with a reel which contains the trigger file, the 
SOS cassette library file, and die SOS library file. These files are then added to die 
load module. 
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OPERATION UNDER DOS-COMPATIBLE SOS (STAND-ALONE FORTRAN ) 

Using the binary loader, FORTRAN IV program tapes 091-000039 and 091-000043 are loaded in that 
order. Restart location, if needed, is at location 377. 

! Com Pile-Time Options 

When FORTRAN IV is loaded, the system queries the user in regard to device assignments and 
compile -time options as follows: 

IN: 

The user responds to this query with a single number representing the source code input device as 
follows: 

1 - $TTI 

2 - $TTRI 

3 - $PTR f ASCII output must have even parity. 

4 - $CDR 

When the source code input device has been given, the system queries: 
OUT: 

The user is expected to respond to the query with a number representing the assembler source 
output device (including error listing). "The possible responses are: 

1 - $TTO 

2 - $TTP 

3 - SPTP 

4 - $LPT 

- no device ; used when only a listing is desired 

After the user's response is complete, the system then queries: 

LIST: 
The user responds with a number indicating the designated listing device. The possible responses 



are: 



- no device (no listing desired) 

1 - $TTO 

2 - $TTP 

3 - SPTP 

4 - $LPT 



The listing includes die FORTRAN source program complete with error messages. All lines of 
this output listing are preceded by a semicolon in order that the OUT and LIST devices may be the 
same. It is important to note that error messages are always output to the teletypewriter regard- 
less of whether a LIST or OUT device "was specified or not. The system will then query: 



COMPILE X ? 



requesting die user to specify whether source lines preceded by an X in column I should be compiled. 

A response of 1 will compile die lines; a response of will cause the assembler to treat die lines as 
comments. The system then queries: 



SYMBOLS ? 
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OPERATION UNDER DOS -COMPATIBLE SOS (STAND-ALONE FORTRAN) (Continued) 
Compile Time Options (Continued) 

where the user responds with a number indicating whether symbols should be equivalenced or 
.:.' ;. !'' -.-.- UV.' :".. ..;•'....- .. .- - .'. : 

- suppresses the symbol list 

i - all FORTRAN variables and statement numbers will be equivalenced as discussed in 
Appendix C. The symbols will be output. 

If the user issues an illegal response to SYMBOLS, the query will be repeated ignoring the illegal 
response. 

After the user has responded successfully to the queries, the source program can be input for 
compilation from the designated input device. When compilation is complete (as determined by an 
END statement in the source program), the FORTRAN compiler will type: 

TO CONTINUE, STRIKE ANY KEY 

To compile another program, using the same designated input and output devices, press any key 
on the teletypewriter keyboard. To change the device assignments, restart at location 377. 

An option is open to the programmer to input his source program from several separate tapes. To 
do so, each tape must end with the line: 

.EOT 

The . EOT line will then allow for separate tapes in parameter definition and COMMON declarations. 

Assembly 

FORTRAN IV output can be assembled with the DGC Extended Assembler. Each FORTRAN IV pro- 
gram generated is complete with all necessary declarations and pseudo-ops in order to use the 
assembler. (There are many errors which may be ignored by the compiler but detected by the 
assembler, particularly, usage of assembler reserved mnemonics; therefore, do not suppress 
error typeout. ) The binary output resulting from the assembled mode of operation 2 or 4 is 
relocatable. 

Loading 

To run under DOS -compatible SOS, the binary tapes for the .MAIN FORTRAN program and all sub- 
programs can be loaded using DGC's Extended Relocatable Loader. This loader is described in 
Chapter 1 of manual number 093-000080. 

Loading should proceed as outlined below: 

1. Load the FORTRAN main program relocatable binary. 

2. Load ail FORTRAN subprograms which are called by the main program. 

3. Load FORTRAN library tape number 099-000005. 

4. Load FORTRAN library tape 099-000006. 

5. Load FORTRAN library tape 099-000007. 



D-22 



OPERATION UNDER DOS -COMPATIBLE SOS (STAND-ALONE FORTRAN ) (Continued) 

Loading (Continued) 

6. Then load one of the following tapes: 

099-000009 if system is configured with multiply /divide hardware 

option (Nova 1200's, Nova 800 's, Supernova) 

099-000011 if system is configured with multiply /divide hardware 

option (Nova) 

099-000008 no multiply/divide hardware option 

7. Load the DOS -compatible SOS library tape (DOS tape no. 099-000071). 

8. A loader map can be obtained at this time with load mode 6. 

9. Check undefined symbols (load mode 9). Undefined symbols will be listed at the tele- 
typewriter. The following may reasonably be undefined. 

FLSZ Number stack size; if undefined a default value is used. 

PLSP Real arithmetic package. 

CMSP. Complex arithmetic package. 



10. 



Terminate the load (mode 8). Tne loaded system may be run by pressing CONTINUE 
or by using the restart procedure. 



Restart Procedure 

The loaded system may be restarted by: 

1. Set switches to 377 

2. Press RESET 

3. Press START 

Execution 

When a PAUSE statement is executed, the program will continue when the programmer presses 
any teletypewriter key. 



D-23 



The FORTRAN IV program tape 091 -000052 is loaded with the binary loader. Hie library tapes 
for 8K FORTRAN are the same as for DOS -compatible SOS, (in addition to library FOR 'TO. LB). 

Operating Procedures 

Operating procedures for the 8K version of FORTRAN IV differ from those of the DOS/SOS FORTRAN IV 
version at compile time. These differences are: 

1. There is no separate LIST output. 

2. Responce to the "IN:" query is one of the following: 

2 Teletypewriter reader 

3 Paper tape reader 

3. Response to the "OUT:" query is one of the following: 

None 

2 Teletypewriter punch 

3 Paper tape punch 

4. There is no "SYMBOLS" query and no symbol list output. 

5. Tie . EOT tape option is not available. 

6. After the query "COMPILE X?" has been answered by either a 1 or a the compiler 
will type: 

LD RDR HIT OR 

■The programmer should prepare the tape in the appropriate reader and type a carriage 
return (press the RETURN key). 

7. At the end of the compilation, the compiler will reinitialize and type again: 

IN: 

8. To restart the compiler after shutdown or to change initial assignments, start at 
location 377. 

9. Tie object code produced by the 8K compiler may need library FORT0. LB to be loaded 
before the others. 
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OPERATION OF 8K STAND-ALONE FORTRAN IV (Continued) 
Lux/un.-..- Liunsul r..-^ 

The following features of DGC FORTRAN IV are not available for an 8K memory configuration: 

1. DxVTA statement 

2. Statement functions 

3. EXTERNAL statement 

4. Mixed mode arithmetic 

5. File positioning 

6. EQUIVALENCE statement 

7. FORMAT syntax checking at compile time 

8. Library function argument count and type checking 

9. Complex literals 

10. PARAMETER statement 

Most of the features of the larger FORTRAN IV, though, can be effectively replaced by combinations 
of other FORTRAN IV statements, for example: 

Statement functions are identical to FUNCTION subprograms in calling sequence and code 
generated. 

The two major functions of an EQUIVALENCE statement are to equate logical and numerical 
storage and to share temporary storage. DGC FORTRAN IV automatically equates logical 
and integer variable types. To share temporary storage, labeled COMMON that is to be used 
to contain EQUIVALENCEd storage can be defined in several program units with a different 
structure being specified in each. 

The absence of library function argument and type checking deserves close attention. Functions which 
are not typed correctly by the IJKLMN convention must appear in a type declaration statement or 
insufficient temporary storage will be allocated for the return of the function value. All double pre- 
cision, complex, and double precision complex functions must have their type declared. 

SMALLER OBJECT PROGRAMS 

The FORTRAN IV programmer should be aware of two means of saving considerable space: 

1. The single and double precision arithmetic packages are totally distinct and each 
requires about 600 words of storage. If possible, use only single or double precision. 
To force all real variables and constants to double precision, use the statement: 

COMPILER DOUBLE PRECISION 

2. Labeled COMMON takes up space at load time, whereas unlabeled COMMON and 
stack variables and arrays are allocated at the time of execution and thus can use 
die space previously occupied by the relocatable loader. 
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DISK BOOTSTRAPPING (HIPBOQT ) 

Disk bootstrapping can be performed by issuing a call to the BOOT routine. After having issued 
this call, HIPBOOT queries the user with: 

FILENAME ? 

after which the user must respond in one of three ways: 

1. A carriage return, which indicates the default system SYS.SV and SYS.OL on the 
bootstrap device. 

2. A system save file and overlay file name (the overlay file name must have die . OL 
extension) followed by a carriage return. 

3. A partition name on the bootstrap device, with the partition containing die default 

system save and overlay file names SYS. SV and SYS. OL. 

The system file must be prefixed by a global specifier only when an inter-device bootstrap is being 
performed. If an inter-device bootstrap is performed, i. e. , a bootstrap of the form DPn: ABC where 
DPn is different from die bootstrap device, DPn will become the master device even though a different 
master device may have been specified during the generation of system ABC. 

Not only must a system overlay file exist for each system fide specified, but each overlay file must 
bear the same name as die system save file, with a . OL extension. 

Any unrecognizable characters input to HIPBOOT will not be accepted: the TTY bell is sounded for 
each such character. Erroneous characters can be deleted by typing the RUBOUT key. On die TTY, 
a left arrow followed by the deleted character is echoed each time the RUBOUT is pressed; on video 
display units, die deleted character is simply erased. 

If after receiving a response to die FILENAME query, HIPBOOT is unable to locate a system 
directory, the message: 

FILE NOT FOUND, FILE: SYS.DR 

will be output. This is a fatal error; full initialization is the only recovery procedure possible. 

For further detad of disk bootstrapping, refer to the RDOS User's Manual, Appendix E. 
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APPENDIX E 
DATA STORAGE AND HANDLING 



STORAGE OF DATA 



Integers 



Integers are stored in two's complement form, using one full 16-bit word. The allowable range 

is -2**15-1 to +2**15-1 (-32, 767 to 32, 767 ). The storage format is: 



Two's Complement Magnitude 



bit 15 

where: s is the sign (0 = plus, 1 = minus) 

Real Numbers 

Real numbers are stored in two words with the high order word preceding the low order word in 
memory. Position contains the sign , bits 1 through 7 represent the exponent, and bits 8 through 
31 are the mantissa. 

The exponent is represented in excess 64 form, that is, as a seven digit, two's complement integer to which 
is added an offset of 100„. Thus, 

o 

100 is an exponent of 

o 

177 is an exponent of 63 n 

o if» 

077 is an exponent of -l 10f 

The mantissa is a normalized hexadecimal fraction between . 0625000 and . 999999. (All floating point 
numbers in DGC FORTRAN IV computations are maintained in normalized form.) Real numbers have 
6 to 7 decimal digits of significance. 

The storage format of real numbers is: 



bit 



78 15 



exponent 1 mantissa 



mantissa 



16 31 

Double Precision Numbers 

Double precision numbers are stored in four words. The sign and exponent axe stored in the same 
manner as real numbers. The normalized hexadecimal mantissa is stored in the remaining 56 bits. 
Double precision numbers have 16 to 17 decimal digits of significance. 

The storage format of double precision numbers is: 
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STORAGE OF DATA (Continued) 

Double Precision Numbers (Continued) 

bit 78 15 



exponent 



mantissa 



mantissa 



mantissa 



mantissa 



Complex Numbers 

Complex numbers are stored as two real data. The real part is stored in the first two words and 
the imaginary part in the second two words. The storage format of complex numbers is: 



real part 
imaginary part 



Double precision complex numbers are stored as two double precision data. The real part is stored 
in the first four words and the imaginary part is stored in the second four words. The storage format 
of double precision complex numbers is: 



bit 


78 15 






s J exponent | mantissa 






mantissa 






s | exponent j mantissa 






mantissa 




Double 


; Precision Complex Numb 


ers 



bit 



78 



15 



s j exponent j mantissa 



mantissa 



mantissa 



mantissa 



[ exponent [ mantissa 



mantissa 



mantissa 



mantissa 



real part 



imaginary part 



String Data 

String data axe stored ascending in core, with one character stored per 8-bit byte (two characters per 
memory word). The leftmost bit of each byte is always 0. 

If the character count of a string is odd, the terminating byte is all zeroes; if the character count is 
even, the string is terminated by a word of all zeroes. However, when a variable is initialized to a 
string datum (DATA statement) and the character count is even, no all-zero word is generated. 

The storage format of string data is: 



TT 



lIELillK 



chan 
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STORAGE OF DATA (Continued) 

Logical Data 

One word of all zeroes is stored for the value . FALSE, and one word containing -1 (177777 ) is 

stored for .TRUE.. 8 

DATA HANDLING 

Number Stack 



A stack of 630 octal locations is reserved for storage of numeric values, either as input or output 
or for temporary computational values. 

The number stack expands dynamically as numbers are loaded onto it and contracts as they are 
removed. 

In the event that the number stack is not large enough, the user can alter its size by defining a 
parameter at assembly time by means of the following statements: 



.ENT .FLSZ 

.FLSZ = xxx 
.END 



where: xxx is an octal number and the number of locations reserved for the number stack will be: 
2 * xxx +30 Q 

o 

Byte Manipulation 

String data handling is accomplished through the use of byte pointers. Byte pointers are identical 
to those discussed in "How to Use Nova Computers" except that bit 15 is set to zero if the left byte 

is pointed to and bit 15 is set to one if the right byte is pointed to. ~~ 

The format of the byte pointer is: 

bit 15 

[Address of 2 packed bytes 



1=R 

0=L 



OVERFLOW CHECKING 

Programmable overflow checking is provided by the library routine OVERFLOW. The callinc sequence 
of OVERFLOW is: ' b ' ' 



m } i 



CALL OVERFLOW ($sJ , , SsL, „V J) 
— i — 2 L N 

where: slj and sl 2 are statement labels. 

Either the literal S or the literal N appears as the third argument. 
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OVERFLOW CHECKING (Continued) 

OVERFLOW checks a system flag to determine whether or not a non- integer arithmetic overflow has 
occurred since the last call to OVERFLOW. If overflow has occurred, control is returned to the 
statement numbered sip If overflow has not occurred, control is returned to the statement numbered 
£12. ~ 

The system overflow flag is reset by any call to OVERFLOW and is only reset by a call to this routine. 

If the argument "N" is given, all error messages will be output. If the third argument is "S" or is 
omitted, messages associated with floating point overflow or underflow will be suppressed. 
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APPENDIX F 
ASSEMBLER/FORTRAN INTERFACE 



This Appendix briefly describes the interface between FORTRAN and DGC assembly language programs. 

the FORTRAN extension of assembly language addressing. 

the assembly language code generated by a FORTRAN program. 

the FORTRAN call-save -return implementation. 

the Interface between FORTRAN statement numbers and symbols acceptable to the 
assembler, (conversion to assembler-acceptable symbols can be accomplished by 
requesting SYMBOLS at compile time. ) 

For a more detailed discussion concerning the FORTRAN/A ssembler Interface refer to the 
FORTRAN IV Run Time Library User's Manual, DGC Manual Number 093-000068. 

ADDRESSING 

FORTRAN addressing extends the NOVA family addressing scheme in two ways: 

1. Variables on the stack are referenced relative to that stack's FSP. (FORTRAN 
stack pointer). 

2. Full word addressing for all absolute addresses is effected by the subroutines 

. LD0 and . ST0. 

St !, C ™ d ^ eSSeS are 6nC0ded aS being between ° and 377 (o«al) inclusive, or as between 100000 
™t ),'' (the address of Ae variable, not the variable itself). FORTRAN addresses greater than 
6ii (octal) are treated as absolute .NREL addresses. 

FORTRAN addresses are transformed into absolute addresses by several library routines (see 
list below), one of which is normally called immediately upon entry to a subprogram. 

FRG0/FRG1 

MAD/MA DO 

FRGLD ;also loads contents of this address in AGO 

CPYARG/CPYLS ; transfers effective addresses to caller's stack 

FARG ; transfers effective addresses to caller's stack 

Any of the 377 (octal) locations on a frame can be addressed since the most recent FSP is always 
placed In AC3 by the FORTRAN linkage routine. Therefore, instructions similar to the following 
may oe written: B 

LDA 0, -167, 3 

STA 0, g-167, 3 

ISZ -154, 3 
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ADDRESSING (Continued) 

Nova family computers can address 256 (decimal) words in an indexed instruction, using a bias of 
-200 through -167. Each address on the stack can then be referenced using the centerpoint, FSP, 
and an offset stack displacement, A FORTRAN program stack frame is laid out as follows: 



LOCATION 


(relative 


Contents 


to FSP) 




-200 




Stack frame size 


-17? 




Old FSP from calling program 


-176 




Unused 


-175 




Entry address to the last routi 



routine. 

-174 State of carry at the time this routine issues a 

subroutine call. 

-173 Contents of AGO when this routine issues a 

subroutine call. 

-172 Contents of AC1 when this routine issues a 

subroutine call. 

-171 Contents of AC2 when this routine issues a 

subroutine call. 

-170 Address of next sequential address (return 

address). 

-167 Temporary storage available for use by this 

routine. 

Relative locations -200 through -170, FSP, and ACS are maintained by the library routines . FCALL, 
.FSAV, .FRET, .FRCAL, and . FQRET . 
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ASSEMBLER CODE GENERATED BY FORTRAN IV 



C**ASSEMBLER CODE GENERATED BY FORTRAN IV** 
C **SAMPLE PROGRAM** 

PARAMETER Ql=4 



SUBROUTINE SUB1 (DUMI, DUM2, DUM3, DUM4) 

COMMON INT1 

COMMON UL1, UL2CQ1, Ql), UL3/CL1/ LB1. LB2, LB3(0:3, 0:3) 

LOGICAL L3, L4 

LOGICAL LI, L2 

INTEGER DUM4 

DIMENSION RARAY (5, -4:0), UL21(6, 6) 
1 ,DUM1 (0, DUM2) 

EQUIVALENCE (UL2(6), UL21(3)), (UL2(2, 3), UL22) 
1 ,(INT1,L2) 

DATA LBi, LB2, LB3, LB3(8), LB3(3, 2)/ 
1 2 : T, -5, 3H123, 'ABCDEFG'/LB3(4)/4*4/ 
10 FORMAT (13, -4P4E26. 6/(L2, A3/3H123, T50, 

1 "AB"), "TITLE"') 



S F 1 (S FDUM 1 , S FDUM2 )= 
i SFDUM1/ABS(SIN(SFDUM2+LB3(LB1, LB2))) 
TYPE"ERROR #",11, "EXPECTED VALUE" 

1 ,R1, "ACTUAL", R2 



GOTO 3 

DO 2 ICV=1,4 

11=12 *I3+I4 -I5/LB1+LB2 ; *I1. AND. 7777K 

IF(I10. EQ. "NO") GO TO 2 
L1=L2. AND. L3. OR. . NOT. IA 
I R1=R2+R3-R4 *R5/UL1 **I1+ABS 

1 (SIN(SF1(R3,R4))) 

IF (R2-R3)3,4,4 

\ WRITE(12)"I1=", II, "Rl=", Ri 

► READ BINARY (13)UL2 

RETURN DUM4 

END 

END 
—076 *** CHR 06 
10 
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ASSEMBLER CODE GENERATED BY FORTRAN IV (Continued) 



0<*P1 Sl'frl 



* flp<?? S"M 



f»»r» k . 22 



Cf.ff ?i 



C**&SSE^BLEP CCRE GENERATED BY FORTRAN IV** 
C #*SINPLF PROGRAM** 

PARAMETER Si»4 



SUBROUTINE SUB1 (0UM|, DUM2, DlJ*3, DUM4) 

COMMON I KT i 

CONMfiM iiLi,UL2CQlfQl)rUL3/CLl/L*i»LB2#LB3C0l3#0l3) 

LOGICAL L3,L4 

LOGICAL L1,L2 

I^TFGER DUM4 

OIMENSIOK PARAYC5,*4iS»5,UL2i{6,65 

ECUTVALPKCF (UL2(6)»UL2! f3>), fUL2 C2, 3 5 , UL22 ) 
f ,riuTl,L2) 



OAT A LB1,LB2»LB3,LP3(P),LB3(3,2)/ 

»CO m h CLI 22 



,M»EL 




,f ITL 


SUPI 


.E*T 


SUP! 


.KRFL 




,TXTM 


i 


.EXTU 




,f XTM 


.1 
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ASSEMBLER CODE GENERATED BY FORTRAN IV (Continued) 





.Fit 






^«P««9> »(>?«»? i 1 


V26.I 


11 


IUL21 


*FPvJl K^?{»25 


V27, i 


25 


IUL22 


,-»^0.(>?Iffl^^g<ppi 


V30, I 


P> 


IL2 


!**<?? 3 »(7li(»t«^7 


V31, t 





UNTi 


■Hf»^^4 • P^pipfJ 


V32.I 


1 


IUL! 


fl"?p<»!?5 1 f« t" c^ t» ^ 3 


V33.J 


3 


IUL2 



■3*83 Sl.'Hl 








r>s « p w e »f^n>?43 


V34, I 


43 


»UL3 


*<*t*i?7 1 (/f^pPfl 


.F2t 







f «/ ? 1 2 1 


A26.I 


.CSI7 


125 


y»0»lt»IPt-lg^l3l 




.♦3 




*V9 l i ' J tfPPPp' 




•V26. 




CHOl?ipfn? t 10 




lie 




"Wl3«!""f.C£e>5 




5 




713^14 l«vifr(5j? 




t«H2 




*«(*i ^ k^wppj 




1 




„»,*<? j* ipfr.ppcift 




6 




( *M?l7"-*lf«VP , l 




i 




^072" i t'(^Pp44 


A?3,l 


44 




** (* « 2 1 « i? fc- o g> p «; 




5 




^5»°i22»5«i?1?i7;2 




1*02 




:"» c» ff 2 3 i p k? p p f 




1 




-*p.?2<* 'P»a??.5 




5 




•?P"25' \7777A 




177774 




<*0f?2* H*t??3f 


Ate. i 


31 




•3?P?7 *V'</<llZ9 ' 




.♦3 




r / c p c* 2 




,GADO 


CLl, 



IULP1 



fRARAY 



ILB3 
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ASSEMBLER CODE GENERATED BY FORTRAN IV (Continued) 



a '30«M si'Bi 



»i»«31 


II? (r> D f ? 


2' 




«f»»3? 


?P , ?ft?5 


5 




.** £» 3 1 


i? l' P 4 J 


401 




**CT£>34 


Pfsfpp 


PI 




£* f» i? 3 K 


p ? <? r p 4 


4 




?c*c«3ft 


n a p p p 







»e<>37 


*ePp2P 

A33.S 


2 p 




sti'^ 


f'Ki?j?43' 


.♦3 




,«* f 4 1 


1 i"> f fl p • 


•V33. 




f» <? 4 ? 


1> (4fp4? 


42 




9.^^43 


1/ K f.« ^ Q 5 


5 




S?^f>44 


^ k 1 gi*2 


1*02 




£ ? 4 * 


r? f £* p (* f 


t 




?iJ"d6 


Pk**e?4 


4 




c» ? r 4 7 


«tfCVI>1 


1 




m pi a 5 <> 


CH', k »?2P 

A3. » 


2? 




si?.»gi 


rPP^P3 


3 




t* fl ? 5 2 


i7 p i p * ? 


i"02 




« ? f & 3 


P^f-i426 ' 


,C3 




^ f* P> 5 4 


U'PP J 2 


•V, + i 




Pv»P5? 


SUBi I 


FS. 




(*.&?>}* 


•/• e c 1 7 f 


JSR 


*.C»YL 


>>(*9 57 


?-{f6f2?t 


JSR 


• . F I w I 


flpGifif* 


(? '/■ f> P <2 p » 


.fi 




P'/frS! 


9- ',' ? &• S? 7 • 


.P2 




a c 6 P 


r ' w 6 f ' 2 f 


JSP 


».FAL0 


•?P!?<53 


^f??f » 


A?3, 




<* f 6 4 


PSf el 5 


V.+4 




Pi / r> ft ? 


r-pepgp 


62 




<*0(?f * 


f/ VK9? ,1 * 


JSR 


#.FRED 


r»fii?f 7 


P t ? f 5 1 ' 


A3, 




ffl .3 ? 7 ^ 


lf-OF J 1 


#V,+? 




;* « ? 7 1 


f * «/ P fc 2 3 


¥, + 12 




? M ? 7 ? 


PI.^?4^i 


JMP 


♦ .♦i 


au?73 


C' «/■ p 1 k 5 1 


Li. 






P P P" P t? } 


.TXTK,- 


1 






.5LPC 


cu 



JUL 2 



jPUMj 



»DUM2 
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ASSEMBLER CODE GENERATED BY FORTRAN IV (Continued) 



*'£<?9&P ,«LK 



1 




.GLOC 


CL1 


,n L K 


i 


1 




.GLOC 


Ctl 


.RLK 


2 


177773 




.GLOC 


CLi 


.BL'< 


It 


.TXT 


C1230 


.GLHC 


CLI 


. a L* 


15 


.TXT 


CARCOEFGO 



t 1 2M,-5,3H123,»ABC0EPG'/LB3(45/4*4/ 

"• C5 C* C* ¥ o S» fl pi 1 

3(317? txF-'wppp! 

!' ? C f I? g 

t?ffl^??xi77773 

JtrPPH 

*tffM tx"-3«462 

;,»5l^J ?XP3l4(7p 

appp 15 

?S»IM5X?4(?5P2 
•*#«> 16X n, 4 J 5P a 

flg»2fi»yff434(?(>i 

.GLOC CLI 
0V<Pe!>5 ,«LK 5 

r» (A (? f * y M ^i'Pi 4 

^ g ? f/ 7 y e «/ c- p <f. A 4 

ti (? i? j ,ii y p i? f< f pi 4 4 

.NRFL 
Ci^C»<?p , TXT^f g 

t !« Fn9«4T(f3»-4P4E26 t 6/(L2,A3/3Hl?3,T5«S, 

L2.t 

T0 l 7?4«pe240J J*P #,*! 

.?p?7*»f^i27« L3, 

.TXT C(I3,-4P4E2«,ft/fL2»A3/3H123,T5P, 

<*$(*■} f 1 1'2 4 J 1 1 

■*;4?77»?31454 

*k»j !?..-> m>2«4 64 
3 01 ?} ir-bi*P64 
-*? j *?i:'4?4f ? 
^lC3«f33t?56 

=.* 1 7 4 « </ 3 3 ? fi 7 
•1^ i ,? ?; » p 2 4 1 1 4 
•* s* J • M !-* 3 J C 5 4 

-* g j * 7 i v> 4 <? 4 ff 3 

*?ifffif'2?4?3 
•131 { 1 • ./ 4 4 # 6 1 

■■»ei i^te-Ji^s 

*»?1 l3«5-2«t24 

itfl 14 • {.'3?4*» 

^Ml e 5« p 26?42 »AQ«) , « "TITLE" ' ) 10 

r*31 f *• «.-»4«>5?? 

"/ ! 1 7 « ■/ 2 1 e"3 i 
■* ?! 1 2 :* » C 2 * ? 4 7 

"BI2f «t*2f J 24 
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ASSEMBLER CODE GENERATED BY FORTRAN IV (Continued) 



0*t?f SliBi 
fl»ei23«P«61P5 

,;>« J2 K »p2**M 



I SFHSFDUP 1 ,SF0UH2>« 

L3.I 



SFH 

? 1 SF0UM1/AP8(SIN(8FDUM?*L83(L81,LB2)J) 

*!*t31 *PMfiP?SS JSR #,FSUB- 

w^132«P^fr'f?4 4 

my j 33'P»??27 ' M6, JS.B3 

{*&•<* pep .GAOD CLI.0 JLBi 

ffPpe! ,GApn CLl.i *LB2 
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ASSEMBLER CODE GENERATED BY FORTRAN IV (Continued) 



a «C*i? sufei 



?0i37»?e^ei3.* 


FXFL1 




;>Pi4?»ifle-0i6 


*pvs,+i 




c*«i4t » f»0?e^4 * 


FPL01 




R0142« I 0P*g 1 3 


• V,*2 




*?H 43»?PPIpP?f 


F«0< 




apt i 44 »p:e-pf*i4* 


SIN. 




5*0145 »?fW|?^l $ 


4BS. 




01JM4* »^0C^«?!4l 


FFLD1 




«*(M47« 130CM2 


#V,*1 




"t£»J5ftf»^e»ep»7$ 


FLIP* 




Ci01 51 'pe<*?03» 


FHV1 




Pl!?M6?«PtfPeP5* 


FKST1 




PP153' J0*7ii 


• V,*0 




i" f 5 4 » 7" e fr e 2 4 f 


.ISR 


•.FRET 


r 


TYPE«ERPCR #",11, 


Ll.i 






e»015*«Pfr 6?26* 


JSP 


- t pwPl 


flitflSf'fr-fr'P^!??' 


.Cil 




•70157 • 0i''?0?»K 


V 




s7^iga if»epe?fi 


6 






.TXT 


OERRQR #0 


«=■« 1 6 t «P425?2 






0>016?«C5j 1 17 






»01«3«C51?.4? 






C0164 «P2t 4^0 






?«1«P»si«sr*-^rpi 


(7 




.7.5*16* »PR7?C*J 


t 




fi»5M67 • wfc'R?3e 


V. + 17 




ffl pi J 7 « I <M PI ^ St £ 


6 






.TXT 


CEXPECTED 


Pi«t71 IP42530 






7*217? »f 5/J?5 






(?0173«?41524 






*0174 «?425?4 






pin j 7^»c?i?!i?ff 






</^5 7«»?4P6i4 






£>>§?. 1 77 »e»t3?5W5 






wfcgfcfr «r£C!f?pp 







»SFDUH2 



»SFOUMi 



I9F1 



III 



1 , PI, "ACTUAL", R2 



»P?p?»fr,W0f2 
PP , ??3»eSH'?3l 

P0?f 5 «r4c5.?3 
*J»2t?7»M»5l4 




2 
v,*20 

f> 

.TXT CACTU&LO 



|R1 
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ASSEMBLER CODE GENERATED BY FORTRAN IV (Continued) 



3E*{*P SUP! 



V.+22 
5 



»R2 



^02l*»P0P364 ' 



"»02l7» ti 1 ??2^ 
fl, 022' , "P4i635 



GOTO 3 

JMP 

14. 



• •♦1 



Or 2 ICV"!,4 

SI-B7L $,2 

ST A e»T.*?4»3 



HCv 



a 0*559 -SIB! 



■» « 2 2 1 * c: t"3 4 6? 5 

*P223«?2J635 
PP224 » 101 4Pp 

**?25'P4l635 

f?P22*ir^6P3f f 
^227 «ceo-43P • 
^023" » 1V6423 
5 , 023i <Pt«277l 



16. J 



Lie. i 



i 



P0232*"21637 

?P23*'P2563* 

?«*?34i.>i»6< > 33S 

" , f235«P2?64pi 
* n 23* « 1^7P0p 
o^2J7»?«565l 

'*A24'i « P ti- ^ f 3 * 

l- 1 ?■ P ? P p 
^?242»f'2?>64t 

l'024.H.??6^32$ 
v§24d * f 2 J 6 5 J 
? *?4F • 1 22<Jfi»P 
"^?4^«»4{65| 
S"32«7»? , 2163ps 
""P25<""<Pk 4 6 6»3{f 

f*e)ppp j 
"•^252 l "t'*6g27* 
C*P?5P »P2i fS J 
? u ? 5 4 I I *.i 7 o P ? 
6»p.?5 6 Ml-"MP3s?« 
M a ? 5 * i e ? ? 4 { 7 * 
p ^ 2 S 7 i j ^ 7 4 P « 



I 



a C» 2 * J i p V 7 6, 9 j 

* ?. ? A 2 ' < ? s <* 2 * F ' 

P^26"^"v47i 1 7 
.** A 2 5 & • P - ? P ^ P 

" '* 2 6 5 « !' 3 I 6 ^ 2 



L12. I 



L! ! .» 



JKP 


L 10, 


L7. 




IDA 


e»T.+24»3 


IKC 


P,P 


ST A 


?»T,+24,3 


JSR« 


• LDI 


.CI 




SOB? 


Krl.SMC 


J"P 


•L6.-1 


1 1-12* 


I3*I4-I5/LB»*LB2« 


LOA 


2, T. +26,3 


LOA 


1 ,T.+25,3 


JSP 


•.SMPY 


LOA 


e»T,+27,3 


ADO 


?,i 


STA 


UTS. + 1,3 


J?R# 


,LD0 


.GA^D 


t L 1 ,?, 


Lt 4 


l»T.+30,3 


J.«R 


*.SOVD 


LOA 


?»T8.*I»3 


Si 6 


UP 


STA 


e,TS.*l#3 


LOA 


?,T.+17»3 


JSP* 


.LD! 


.6 400 


n.j, i 


JSP 


• . IPWR 


LCA 


e»TS.*I,3 


ADD 


p*i 


JSP« 


»L0§ 


,C12 




akq 


2,i 


STA 


i »T.*I7»3 


IFCIl* 


.F^.m^O") GO TO 2 


jvp 


• ,-M 


LM, 




»TXT 


CM 00 



JICV 



ncv 



113 

ri2 
ri4 



ILB1 
115 



III 

JLB2 



III 



LP* 



2»T.*31*3 
.LOP 



ni" 
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ASSEMBLER CODE GENERATED BY FORTRAN IV (Continued) 



a 3 CUP gl; hf 



m*2«7 *r»0P263' 


L12. 




<AiA27® t 14245»4 


sua 


2,0,SZR 


<*0I27J • i«24i?f 


31'B 


?,0,S*P 


^0272 • M2£»^C» 


ADC 


K,0 


« -^ 2 7 -""I • 1 «1g04 


MfiV 


e,e,szR 


•H02/4 * <w e- 5» 4 Pi 3 


J*P 


.♦3 


*?)27* »0^240f 


JMP 


•.♦1 


P-1276 '?«?035"1 ' 


Lt 3. 




?0277« W ^24?J 


J*P 


•.♦1 


if5lf»f* t-?^0!3i3i 


L5. 





L13.I 

I U«L2.AM0,L3.OR,,N0T t L4 

M3f?! »i?fc.6?30* J8R* ,L03 

.•*P3£2« ti-fltfP?' #V33, jl2 

"03C3«l?256?2 LDA l.T.*ii,3 ri_3 

^^3^4 « 1234?? AND l r 

'i?3^5«P3j62l IDA 2»T.*i0,3 JL4 

r ^3p6' it>P?s»p CCM 2,2 

C01377 • J 44?t*P! COM 2,1 

P"33l M J 337*7 APO t,2 

a7,3l?«/5lC2ri STA 2,T.+7,3 f Li 

J 2 Rl«*2*«3-P4*RS/UL!**Il4ABS 

L5.I 

ffl 33l3»CV?P , 4* FFLOl 

^?M "^HP»033 V.+22 |R2 

1*7315 «w^R?04,« FFL01 

aw316'?/i'/5<43 V.+32 »R3 

^0317 »P-/05>P'2 l f FADi 

*I332*»*7C»7P4* FFLD1 

■*tf321 i^P? 45 V,*34 jP4 

't»?3?2'5'^P?P4f FFLOl 

«^323» i ?^(?&'47 V.+36 |R5 

R««3?4 »(. Wpp f 9>f; FM|_t 

"*P32? «M^?i?f?ff FlPPf 

*03?6«f35»737 V. + 17 Hi 

?M327' i««?«'P»4' «V32, fijLl 

<'<*Pt33'* ,p 5 ?, f*«»^3* FD¥1 

■ 1, ?33l»?y?/t!* FS8< 

I I CSIM(SF1(R3,R4))) 

i-»M33?«^k'.6?2l I JSP •.FCAL 
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ASSEMBLER CODE GENERATED BY FORTRAN IV (Continued) 



a 0*11 SUM 

(•43334 ipn?^.J!3 3 

*B335'PPfc*e5i VS. + J 

<**33M0fc'K?43 ¥,+32 |R3 

?e!337»?<*?<?4S V.+34 fR4 

^^34"?^^?P4* FFLOl 

•1^341 »?«*«•?!')} VS. + i 

*«34?i?-00? 14} SIM. 

.^0343»i^'.^?0l* APS, 

"33*4 »P>?0J>P?$ FAD< 

?034Rrpf,»ff0»5f FFSTt 

P>034*«5"/.l??3t V.+?« IP1 

t'^347 »P324<*i JMP *,♦! 

^35^«>/C'»223' L6, 
L7.I 



IR2 
>R3 



J 


IFfR2- 


R3)3,4,4 


CV3M !?^?!??4.* 


FFL01 




'»5)35?'-r , /7/33 


V.+22 




«£353» **'?'?? 4* 


FFL01 




"c*354 »??0{*43 


V. + 32 




"!tf35M«vp"*tl* 


FSB! 




t 

u?35* *i"<6<*Vl?* 


FSCa 




(>C*3*,7* 1«1 )33 


MOVZL* 


(5.0, SMC 


*P36 ffl tcf-2402 


JKP 


•.♦2 


•in3M i^P24i?? 


J^P 


•.♦2 


">!*3*? «pi'«4»?4 » 


L!4. 




P0361«CP7364» 


l«. 




I 3 


wRITEfl?) H n«% 


L4.I 






rt^364«t'?5?2f« 


JSR 


#.FWRI 


""*36S»F£P4l* * 


.C13 




*fi36**PWt?9 


(A 




«.»367iw5*3?Pft 


6 






.TXT 


CI1«0 


«^37^«"444^ j 






*337< U364PP 






»a372»pa??»c» 


? 




•»C3?3 »?i"?s» ? j 


1 




«a37 4 n»Kw?3^ 


v»*17 




'*fl37f»«5>«.r , ?? , i* 


6 






.TXT 


OR|«0 


WP376 '.'-51 ?fii 






1W177 «C3^4'7p» 






"tg4r"> »7t;;"»^§ 


P 





ill 
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ASSEMBLER CODE GENERATED BY FORTRAN IV (Continued) 

i$2 2 

jRt 



n«4(M »PM£W2 




2 




*34R2« PV*P 3! 




V.+2* 




C04?1i^kj»2P5 




5 






> 4 


READ BINARY Ci3)UL2 




L14.I 






fl»H4pa ij^Pies 




JSR 


i.BRD 


f 0dp5 »*»'*415' 




,r.i4 




4 p, ft 1 <* V\ PI 7 P ^ 




'.' 




flPU*»7 »S^f*?72 




2 




*>04i!* I f? f4 ^ &• 4 pi ' 




A 33. 




^?4! f «p<5«epi«» 




5 






I 


RETURN 


Dl*4 


«04J?i*fcfiMSS 




JSR 


f.AFRT 


fledl.V tWU 




*V,+3 






> 


F.M0 




WM4f,4 i<?i46?241 




JSR 


#,pj?ET 


"PUIS »Pvw?i5 


.C14I 


aP0!&15 




9(0416 1PV.Q*>14 


,CI3» 


0?0<M4 




f»-?j4l7 '«"?7777 


,C12» 


UZ7777 




n^4?fl ifr'?" i 2 


.cm 


080312 




w « 4 ?. 1 • ? f "• tf « 2 


,ciei 


flfl&?02 




f»!342? '??.«* <2(?6 


,C7t 


0305*06 




fCl4?3« J/7774 


,C6J 


177774 




f»04?4 • ??aaP l 5 


,C51 


»<*0fiJPS 




niM?«5 «P^'?(?^3 


,C4! 


0010**3 




f 114 26 » £VX rt ff. p (* 


,C3t 


3Ot0C»«« 




t'0427 ' e^e? i 


,C2l 


0*0^1 




M«43? t?V<*£(?4 


,C1! 


3?£C*ei4 




<? K ? •? 4 J 




F 8 . ■ 4 3 




^ 3 3 " 7 f 




SFS.o6 




1/7M1 




T.b-167 


r 


C#i?Pl i 




V,«20S»*T, 


J7765P 




TS t «T.+37 


177615 




FTS.«T, 


♦ 4 


c cV 7 ^ C 




VS,*V.*37 


P^i?,?t5 




FV8.»V, 


♦ 4 




r 


EKO 






i #** 


076 *** ChR 06 




t i? 






" k :«R47 


5?5« 


V,*36 




»;4«^4p 


R4« 


V.+34 




i* 3 fl t? 4 3 


R3« 


V.4-32 




*» y 5! 9 4 2 


Iii» 


V,*31 




? ; /> 9 9 4 f 


I5» 


V,* 3"5 




? .•» ? «;* 4 -11 


I4« 


V.*?7 





IUL2 



|f)UM4 
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ASSEMBLER CODE GENERATED BY FORTRAN IV (Continued) 
a 0CM3 SUb! 



9 ?■ i* «? 3 7 


I3« 


V.*?6 


i*^??3fr 


I2« 


V.+25 


n M<?35 


rcv« 


V,+?4 


»> f * 3 3 


t?2« 


V. + 22 


i?^.^?3t 


Rfi 


V.+2* 


P',:^t?3?» 


If 


V» + i7 


15?f*5»0i 


«Ut22« 


•V27. 


« Si fli p | pi 


•UL21» 


426. 


?^e»pi i g 


RARAY* 


tf,+4 


i *!??*? 


'L2* 


»*3«*. 


.' ^ '?»??«» 


Ufa 


V,*7 


5»vl??2l 


L4« 


V»*I0 


2* ap2p 


L3" 


V . ♦ i 1 


<*<'W27 


»LP3» 


A16. 




I LB2» 


.GAOD CLI.1 




> LB1« 


.GADD CLl,g 


ttfdSSfi 


UL3* 


•V34. 


?*•-?•£ 4? 


UL2» 


A33. 


ltfP?P4 


».»U» 


• V32. 


ik ««?3 


iNtT i ■ 


»V31 . 


isc-weid 


Of|M4* 


*V,+3 


1**713 


0UM3» 


•V.+2 


1i-'" , /l2 


0tj«2« 


•v,*i 


fl5^ ? 23 


OUMi* 


V. + 12 


?i"*4P4 


N4« 


L14. 


?i-2313' 


N?» 


L5. 


9'K»364« 


N3« 


L4, 


" ^ » 7 4 ' 


mi gi 


12. 
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ASSEMBLER CODE GENERATED BY FORTRAN IV (Continued) 



*!.6. 


?-?e«27« 


A23. 


•*c»«*»2i « 


A?«. 


■>v,l*il < 


A33. 


<:**?* «s ? 4 (9 * 


A3, 


^ p k? c* 5 1 • 


APS, 


f PC*^?lf x 


0UM1 


« f /0023 


Pu«i? 


\</y,^\1 


CV'M3 


1?^13 


DUM4 


t oo?ei 1 4 


FA01 


^?-?"^2jSX 


FOVt 


»'^¥»«»3,?X 


FFLHI 


"fl^MSX 


FPST1 


v> » t»"? 1? 5 * X 


PIPt?i 


'^C't'fl?^*^ 


FLIP1 


W?%9 7* X 


FUi 


•?<*ir»<?IP$X 


FS81 


? i? f> c 1 1 ,t X 


FSGK'l 


^ffW 1 2f X 


FS, 


« 7 /- #43 


FTS. 


t77*!5 


FVS, 


?»■,.» 15 


fxfli 


««^tr-Pil3*X 


It 


;< ? V> U 3 {? 


110 


!\ j? « p 4 2 


I? 


^c{".f>36 


13 


-"C j?37 


14 


;'?t"^^ 


IP 


£*V.P4l 


ICV 


3»*«'.*35 


IWT1 


l^fl0 3« 


U 


*(?..* a 2? 


LI 3, 


:*20226 < 


Li 1. 


* 5* J". 2 ft 5 < 


1 12. 


**<V-2ft3« 


LI 3. 


.? f /^3?i » 


L14, 


.? C £ 4 s? 4 t 


LI. 


? " t' J «5 5 * 


L2 


1 r» tf 2« ?> 2 » 


K2, 


i? !? f-- v« 7 4 1 


13 


''«:»••!» 2 2 


L3, 


»P'i!27« 


L4 


,*<»^?<2t 


1.4, 


,? <? ^ s 6 4 • 


L5. 


/r <5ji3« 


16, 


2<?if 223» 


L7. 


?9?35J i 


L«3 


</PfcC>?7t 


f, J 7, 


a^f.«>;4 » 


*? 


J^«--313» 


fi3 


•?(7vi36 4 » 


r-4 


T, p •• 4 (M • 


fit 


>?m\ 


ft? 


•'P/c?33 


P.I 


•» ? rf ^43 


R4 


<* P i* (*• 4 5 


P=s 


•>.<*;',(? 4? 


BAR* Y 


.•» '* t . pi | 5 


SFi 


• p v J 3 p> i 
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ASSEMBLER CODE GENERATED BY FORTRAN IV (Continued) 



(A(M£ 


^LbJ 


SPS. 


■» p * ;* ? fe 


S I * » 


,4P5ii?. J4.«X 


S'lBt 


t »"/>?5^ » 


TS. 


t 77^5« 


T. 


177ftii 


tLt 


I^r C"?4 « 


UL2 


(/ ?V C» 4 1» » 


l ; l2l 


.*.//■•» $ 5* • 


I L»? 


s c *• c* e i » 


UL3 


i .•*•■? »? * i 


V?6, 


"pf"*t"' • 


V27, 


vnV'??l » 


V33, 


/rt'^cAg i 


V3t » 


« ? i- & if 3 « 


V32, 


?W>tHt 


V33, 


\>- ?i'>'J2$l 


V34. 


. |> P <? 0"» ft • 


VS. 


Ctfi'Pb? 


v. 


Vi'-t^M 


,*FH 


•Zff i' /? i 5 * X 


,R(?r. 


.;-(?**? i6f X 


.f.l 


M0»'4 3C' » 


.CI-" 


ft'5'421 • 


,Ci! 


...!£«, 4?R » 


.ci? 


.•»«^:4 J? • 


.CI3 


/.?» 4) 6 1 


.cm 


f.-- y* f 4 1 f> • 


.c? 


? pt '/ 4 2 7 » 


,C3 


„»5»^42ft I 


'.£* 


/t 4?5» 


.Cb 


••U-i 42 4 » 


.C6 


e^»:42 3» 


.C7 


v f ^ 4 2 ? » 


.CPVL 


"!/e-?i7$x 


.f 1 


fi-C"^" 1 » 


.►■•2 


1' t" *• 2 '/ 7 » 


,FAin 


<?c<tfC v 2v i 'SX 


,FC*L 


-»f »-?21 ** 


.FINI 


pJH ?22*X 


.^«E0 


^ c i; «■> 2 3 « x 


,F«FT 


{.'»fr5*24f X 


,F5l'* 


PPfc725$X 


.F-«*I 


^►'■?26$X 


.! 


177777 X 


,IPv*P 


Mi-'S2 7%1. 


• LDP" 


»«/k-'^j(7f X 


,101 


f?i>/.lif X 


.SOV'O 


/ ►' v. S 3 2 % X 


,SMf Y 


-U. i^33,*X 
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Description of Generated Code 

Following is a description of the assembly language code generated by the FORTRAN compilation. 



Declarations 



.Fl: 

Vn. : 



,COMM 



. TITL 

.ENT 

. NREL 

.TXTM 
.EXTU 

. EXTN 



. MAIN or 
subprogram name 

. MAIN or 
subprogram name 



.1 



At load time, reserve a labeled COMMON block of 
n words, by name if name is new to the loader. 
If the name F in the loader symbol table, check- 
that n is equal to the previous n. 

Program title for loader and debugger. 



Declare the main program (subprogram) name exter- 
nal to the loader. 

Normally relocatable code. No page zero code is 
generated by the compiler. 

ASCII code is stored left to right in a word. 

Treat all undefined symbols as if they had appeared 
in an . EXTD statement. 

Force loading of FORTRAN initialization routine 
from the library. 



Pointers to unlabeled COMMON variables. These 
are displacements relative to the beginning of 
unlabeled COMMON. 



.F2: 

Array Specifier 
. Axxx: 



.CSIZ 

.+3 

@Vh. 

.GADD 



1 



400 * len + type 



Made non-zero after pointers are initialized. 
Size of unlabeled COMMON in words. 



Pointer to subscript bound specifier. (COMMON 
arrays only). 

Address of first data element of array. 

Array size in computer words. 

2 * (number of subscripts) + i . 

Element length and type. Types are: 
1 = integer 



subscript lower 
bounds, alternated 
with partial products 



3 = double precision 

4 = complex 

5 = double precision complex 
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Description of Generated Code (Continued) 

Executable Code 

FS. 



JSR i.CPYL 



JSR @. FINI 

.Fl 

.F2 

JSR @. FALO 

array specifier 

3 -word stack -specifier 

array size 

JSR @. FRED 

array specifier 

3 -word stack specifier 

array size 

JMP@.+1 
LI. 

.TXTN 1 



, GLOC name 



Program unit's frame size. 

Entry to program 

Copy argument addresses onto this program's 
stack. 

Add address of beginning of unlabeled COMMON 
to the displacements. 

Allocate array on the run -time stack. 



Redimension an array passed as a dummy 

argument. 



Jump around any statement functions or any 
internal subprograms. 

Forces any text string of even number of bytes 
to terminate with a word containing the last 

two characters of the string 

Temporarily change the loader's program 
counter to the value of name. 



BLK n 



TXTNO 



Body of Program Unit 



SFS. 



Allocates a block of storage equal ton 
number of words. 



All text strings containing an even number of 
bytes will terminate with a full word zero. 



Stack frame size. 



JSR &. CPYL 

JSR §. FINI 



JSR ©. FRET 



Unlabeled COMMON pointers are initialized. 
Coding required for program. 
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Description of Generated Code (Continued) 

Definition of Stack Parameters 

FS. = m_ Program unit's frame size for ail stack variables (excluding arrays) and all 

compiler generated temporary variables. 

SFS.=6 Program unit's stack frame size. 

T > = _1 67 In instructions such as LDA 0, T.+n, 3 , register 3 points to the middle of the 

user's stack. The words at locations -200 through -170 relative to register 3 
are used for saving accumulators. Carry, etc. The word -167 relative to 
register 3 is the first available for variable or temporary storage. 

V.=200+T. V. is used in full -word addresses to refer to variables on the user stack. Dis- 

placements involving V. are relative to the beginning of a user's stack frame 
rather than the middle. 

TS.=T.+n TS.+l is the displacement of the first word of stack storage available for 

compiler temporary variables. 

FTS.=T. -to Same information as TS. , applied to statement functions. 

VS.=V.+n Used in full -word addressing of compiler generated temporaries. 

FVS.=V. +n Same information as VS., applied to statement functions. 

symbols See pages following. 
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CALLING AMD RECEI VIN G SEQU ENCES 

The form of the calling sequence generated from the proposed FORTRAN statement CALL NAME 
(x, y, z) is as follows: 



avhere n = number of arguments 



)DRESS of x 

)DRESS of y 
)DRESS of z 



The . FCAL routine calls a subroutine which has no page zero entry, or calls a routine (which has a 
page'zero entrv) without using its page zero entry. .FCAL creates a new stack for the called routine 
(if needed) and'allocates temporary storage space on the new stack if this is required, determined by 

a stack length word. The accumulators (except AC3) and the original state of Carry are restored. 

And ACS contains the current FSP, 

The converse of the calling sequence generated by a FORTRAN call statement is the receiving 
sequence. This is the means by which the calling parameters are fetched by the called subroutine, 
The form of the receiving sequence generated by FORTRAN is: 

FS. 

NAME; JSR (&.CPYL 



The routine . CPYL converts the n argument addresses to effective addresses and places these 
addresses in relative locations -167 through -16?+n on the called program's stack frame. Even if 
no arguments are to be passed, . CPYL is still called so that program control will return to the 
next sequential FORTRAN statement, 

The assembly language code generated by a FORTRAN RETURN statement is: 

JSR fi.FRET 
. FRET restores accumulators, carry, contents of FSP, and places FSP in ACS, 
There are several points to bear in mind when coding an assembly language subroutine, they are: 

The programmer must provide linkage with other programs. 

The program name must be declared as an entry in an initial statement (i.e. , , ENT 
name). 



Precede the first statement which generates binary code with . NREL to make the assembly 
language program relocatable. 
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CALLING AND RECEIVING SEQUI-NCK S 

To compute FS. , the frame size for a program, count one word for each dummy argument, plus 
the number of words for working storage. 

For example, if the assembly- language program receives three arguments and uses four integer 
variables and three- real variables, set FS.=15g, where: 

15 = 3 (dummy args) + 4 (integers) 

+ 3 (real variables @ 2 words each) 

To keep track of variables mnemonically, you could define your variables as follows: 



DUM1 


= 


-167 


DUM2 


~ 


DUM1+1 


DUM3 


= 


DUM2+1 


INT1 


= 


DUM3+1 


IiNT2 


= 


INT1+1 


INT3 


= 


INT2+1 


INT4 


= 


INT3+1 


REAL1 


= 


INT4+1 


REAL2 


= 


REAL1+2 


REAL3 


= 


REAL2+2 


FS. 


= 


REAL3-DUM1+2 


and define: A. = 


200 


Then reference as follows: 


DSZ 


@DUM1,3 ;MEMORY 


LDA 


~t 


§DUM2,3 ;REFERENCE 


STA 


1, 


INT3, 3 ;INSTRUCTIONS 



JSR @.FCAL 

. EXTN USERS 

USERS 

1 

A . +REAL2 ;ARGUMENT IN CALLING SEQUENCE 

The indirect reference (@sign) is used for dummy variables, since the address, not the variable, 
is on the stack. 

The subroutine ISH1FT (IN, N, GUT) to shift IN righ by N bits might be coded as follows: 



.TITLE 


ISHIFT 




.ENT 


ISHIFT 




.EXTD 


.FRET, .CPYL, 


.FCAL 


. EXTN 


ERMES 




.TXTM 


1 




.NREL 






IN= 


-167 




N= 


1N+1 




GUT= 


N+l 




FS.= 


OUT-IN+1 
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CALLING AND RECEIVING SEQUENCES (Continued) 





FS. 




ISHIFT: 


JSR 


te.CPYL 




LDA 


0,@N\3 




MOVL# 


0,0, SZC 




Oh 


ISHER ;SHIFT COUNT NEG 




LDA 


1»C20 




SUBZ 


0,1, SNC 




JMP 


ISHER ;SHIFT COUNT 16 




NEG 


0, 0, SNR 




JMP 


ISHER 




LDA 


I, ©IN, 3 




MOVZR 


1,1 




INC 


0,0, SZR 




JMP 


.-2 


ISH2: 


STA 


l,@OUT,3 




JSR 


t.FRET 


ISHER: 


JSR 

ERMES 
1 
ISHMS 


@.FCAL 








SUB 


1,1 ;RETURN VALUE OF 0. 




JMP 


1SH2 



ISHMS: 



TXT 



"IMPROPER SHIFT COUNT" 



C20: 



20 

.END 



;.si r. .'--, • -, <-ii.s 

FORTRAN variable names and statement numbers are not acceptable in assembler source code. 
Variable names may be too long (more than 5 characters). Statement numbers would be treated as 
quantities rather than as labels. Therefore, variable names and statement numbers are replaced 
by generated variable numbers and label numbers respectively in the assembler source code. 

The compiler can make FORTRAN variable names and statement numbers with their associated 
FORTRAN address values available to the assembler for information purposes and for use with the 
debugger. If SYMBOLS are requested at compile time, the variable names and statement numbers 
will appear in assembler equivalence statements such as those that follow; 



K 


= ev.~H) 


(dummy variable) 




R 


= V.+l 


(stack variable) 




J 


= V.+3 


(stack variable) 




CV1 


= @.V7 


(unlabeled common variable) 




ARA1 


= V. +4 


(array specifier) 




ARA2 


= .AS 


(array specifier) 




. LCI 


= .GADD LC1,0 


(labeled common variable) 




.100 


= . L3 


(statement number) 




. 1 


= , L2 


(statement number) 




.999 


= . L7 


(statement number) 




.END 








nent gives 


j the assembler a binar; 


f value for the symbol. This has 


; no effect on the 


T the body 


of tlie pros-tram. Svrnoo. 


Is which are identical in the first 


five characters 
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USER SYMBOLS (Continued) 

of the program. Its sole effect is that only the first of each set of symbols considered multiply- 
defined will be passed from the assembler to the loader to the debugger. 

The example above shows that only statement numbers and some array specifiers are referenced 
by relocatable addresses directly usable by the debugger. The other addresses must be interpreted, 
as is done by the FORTRAN run-time library programs. 

The simplest to interpret are the unlabeled COMMON addresses of the form 'M. Vn. These are 
indirect relocatable addresses. Thus, the effective address for this variable is to be found at address 
". Vn". This address will not be correct until the program or subprogram containing the address has 
called library program . F1N1 at least once. . FINI takes the relocatable addresses stored in the 
. Vn words and adds the address of the beginning of unlabeled COMMON to them to make effective 
addresses. 

Labeled COMMON variable names are preceded by a semicolon to make the line a comment to the 
assembler. 

The assembler cannot accept the syntax of . GADD name , n within an = statement. The programmer 
can use the information in these comments to locate his variables by finding the value of "name" (the 
name of the COMMON area) at execution time and adding the integer n to this. 

Address values containing "¥.+'* refer to the runtime stack. "V.+" quantities evaluate to between 
iig and 377g. This value is a displacement from an origin which can be found at run-time in page 
zero location FSP (absolute memory location 16g). To determine the effective address of a quantity 
on the stack, calculate: 

(FSP) + (V.+n) - 200g 

where: (FSP) is the contents of FSP 

(V.+n) is a number between lig and 377g. 

Address values specified as iV.+n mean that the quantity itself is not on the stack but rather the 
address of the quantity is on the stack. This is the means of addressing arguments passed to a sub- 
program. 

Statement numbers are turned into symbols acceptable to the assembler by prefixing a ". " to the 
number. 



APPENDIX G 

FORTRAN IV RUN TIME RE ENTRANCE AT INTERRUPT TIME 



FORTRAN run time routines are reentrant at interrupt time. To reenter a FORTRAN run time routine 
from interrupt level, i.e. , to make an FCALL, the user must save certain page zero stack pointers for 
later restoration. At the same time, the user must alter the value of certain page zero pointers. In 
effect, the user is making use of stack space allotted to the interrupted program for use by the routines 
to be called at Interrupt time. 

The coding required to save and restore page zero values, to change values for the time time call, and 
to make a return is the same whether the user Is in a real time, multitasking environment or whether 
he is in a non-real time, single -tasking environment. In either case, he is borrowing stack space from 
the interrupted routine, whose state is temporarily frozen. 

The steps the user must take before calling a FORTRAN run time routine at interrupt time are given 
below. The page zero variables involved are briefly defined. However, for a more complete meaning 
of each of the pointers and the stacks to which they point, see the FORTRAN IV Run Time Library 
User's Manual, 093-000068, 



Before calling a FORTRAN run time routine at interrupt time, the user should: 

1. Save the contents of . SV0 . 

2. Save the contents of . OVFL. 

3. Save the contents of FSP. FSP Is the FORTRAN Linkage Stack Pointer. 

4. Increment SP. 

5. Create a temporary NSP as follows: 
C(NSP) + 6 —NSP 

NSP is the FORTRAN Number Stack pointer. The value will later be restored to its original value 
upon return, 

6. Create a new FSP as follows: 

C(FSP) + FLGT+ 2*FFEL— FSP' 

FLGT is the length of the variable portion of the FORTRAN Linkage Stack, and FFEL is the 11 8 
fixed header of the FORTRAN Linkage Stack. The original value of FSP is later restored upon " 
return. 

7. Create a temporary QSP as follows: 
C(FSP') + FAC2-* QSP* 

QSP is later restored upon return. 

8. Allocate two temporary words in the new (FSP') frame. (These can be used to save . SV0 and 
. OVFL. ) 
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The following shows how the new FSP and QSP can be created be 




LDA 


3, FSP 






MOV 


3,2 






LDA 


0, FLGT, 3 


COMPUTE FSP' 




LDA 


1, MAGIC 


COMPUTE FSP' 




ADD 


0,1 


COMPUTE FSF 




ADD 


1,3 


COMPUTE FSF 




STA 


3, FSP 


STORE FSP* 




LDA 


0» TWO 


TEMPORARY STORAGE 
FOR .SV0» .OVFL 




STA 


0, FLGT, 3 


SIZE OF VARIABLE 
FRAME IN FLGT 




STA 


2 f FOSP,3 


:SAVE OLD FSP 




LDA 


0, .SVO 






STA 


0, SAVO, 3 


;STORE .SVO 




LDA 


0, .OVFL, 3 






STA 


0, OVFL, 3 


;STORE .OVFL 




LDA 


0, ABC 






ADD 


3, 






STA 


O.QSP 


;STORE QSP 


ABC: 


FAC2 






MAGIC; 


2*FFEL 






TWO: 


2 






SAVO= 


FTSTR 






OVFL= 


SAVO+1 







On return from the FORTRAN run time routine, the user must restore the values and conditions for 
the interrupted task: 

1. Restore C(. SVO) 

2. Restore C(. OVFL) 

3. Decrement SP 

4, Restore NSP: 
C(NSP) - 6 — NSP 

5, Restore C(FSP) from the saved value. 

6, Restore C(QSP), again using saved FSP (not FSP'): 
C(FSP) + FAC2 _» QSP 

The following code will restore the saved value of FSP: 



LDA 
LDA 
STA 



3, FSP 

3, FOSP, 3 
3, FSP 
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